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Vin 


Vorwort 


Mikrocomputer erfreuen sich wachsender Beliebtheit, was nicht zuletzt darin begründet ist, 
daß sie in einer höheren Programmiersprache, meistens BASIC, programmiert werden kön- 
nen. Diese Sprache ist in ihrem Kern standardisiert, aber jeder Rechnerhersteller hat zusätz- 
liche Anweisungsarten integriert. Wer effektvoll programmieren will, muß also die auf sei- 
nen Rechner ausgerichtete Variante des BASIC beherrschen. 


Dieses Buch wendet sich an Leser, die lernen wollen, einen Commodore-Rechner der Se- 
rien com 2001 oder cbm 3001 in BASIC zu programmieren. Dabei ist ein regelmäßiges, ak- 
tives Arbeiten an einem entsprechenden Rechner unverzichtbar. Deshalb sollten die zahl- 
reichen Experimente unbedingt durchgeführt und die Aufgaben, soweit das möglich ist, am 
Rechner gelöst werden. 


Vorkenntnisse über Aufbau und Funktionsweise von Digitalrechnern sind nicht unbedingt 
erforderlich. Da die Eigenarten der Programmierung sich an mathematischen Problemen be- 
sonders einfach demonstrieren lassen, werden geringe Mathematikkenntnisse vorausgesetzt, 
die sich im wesentlichen auf die Grundlagen der Algebra beschränken. 


Zu danken habe ich meiner Frau für die umfassende Unterstützung und die Übernahme der 
Schreibarbeiten. Ich danke auch der Geschäftsführung der DATENREVISION Beratungs- 
gesellschaft, Hamburg 90, die die Entstehung dieses Buches durch die vorübergehende Über- 
lassung einer cbm-Rechenanlage gefördert hat. Nicht zuletzt gilt mein Dank den Mitarbei- 
tern des Verlages für die reibungslose Zusammenarbeit. 


G. Oetzmann 


Hamburg, im Frühjahr 1981 





1 Was ist BASIC? 


Charakteristisch für einen frei programmierbaren Digitalrechner ist die Trennung der Ar- 
beitsanweisung (des Programms) von der ausführenden Anlage. Dadurch wird es möglich, 
einer Anlage durch Wechsel des Programms immer wieder neue Aufgaben zu übertragen. 
Woher nimmt man aber die erforderlichen Programme? 


Auch Programme kann man kaufen. Die Erfahrung lehrt jedoch, daß die Übernahme der 
am Markt angebotenen Software oft unbefriedigend ist, weil eigene Belange nicht angemes- 
sen berücksichtigt werden können. Daher sind Sie als Besitzer eines cbm-Rechners in der 
Regel besser beraten, wenn Sie speziell auf Ihren Bedarf zugeschnittene Programme benut- 
zen. Diese werden Sie allerdings selbst erstellen müssen, wobei Ihnen dieses Buch Hilfestel- 
lung geben will. 

Eine Programmiersprache wie cbm-BASIC erlernt man nicht ohne intensives Training. Tra- 
gen Sie dem Rechnung und führen Sie die jeweils am Anfang der folgenden Kapitel aufge- 
führten Experimente sorgfältig und vollständig aus. Auch die am Ende der Kapitel gestell- 
ten Aufgaben sollten Sie nach Möglichkeit bearbeiten. 

Die Beurteilung Ihrer Lösungen wird oft problematisch sein. Wie in Umgangssprachen kann 
man in Programmiersprachen einen Sachverhalt auf viele Arten richtig darstellen. Abweichui 
gen zur angegebenen Musterlösung bedeuten daher nicht zwangsläufig einen Fehler. Außer- 
dem dürfen diese Lösungen nicht als Ideallösungen verstanden werden. Vielmehr wurde oft 
aus didaktischen Gründen auf knappe Formulierungen bewußt verzichtet. 

Am Beispiel der quadratischen Gleichung wollen wir erläutern, wie ein vorgelegtes Problem 
in ein Programm umgesetzt wird. Die allgemeine Form der Gleichung ist x? +px+q=0. 
Ihre Lösungen lauten 


wie man in mathematischen Formelsammlungen nachlesen kann. Damit liegt der Umfang 
der auszuführenden Berechnungen fest. 

Im ersten Aufbereitungsprozeß müssen wir die erforderlichen Rechenschritte in eine zeit- 
liche Folge bringen: 


Werte für p und q festlegen (,‚eingeben‘‘). 


= 


Symbol Bedeutung 


Grenzstelle 

Kennzeichnung von Anfang 
und Ende. Genau ein 
Anfang nötig. 


Ablauflinie 

Linie von oben in Symbole 
hineinführen. Sich kreuzende 
Linien bedeuten keine Zu- 
sammenführung. 

Pfeilspitzen erlaubt. 


Operation 

Verbale oder formelmäßige 
Beschreibung der auszu- 
führenden Aktion einsetzen. 


Eingabe, Ausgabe 
Richtung und betroffene 
Größen angeben. 


Verzweigung 
Ja-Nein-Entscheidung. 
Mindestens einen Aus- 
gang beschriften. 


Unterprogramm 
Markiert den UP-Aufruf. 


Programmodifikation 
Wird hier nur in 
Schleifen verwendet. 


Übergangsstelle 

Der Übergang darf jeweils 
von mehreren, aber nur zu 
einer Stelle erfolgen. 


DUO -L 


Bemerkung 
Außerhalb der Symbole 
anbringen. 


1 


Operation von Hand 

Für notwendige Eingriffe 
des Bedieners während 
des Programmlaufs. 


Bild 1.1 Ablaufplansymbole nach DIN 66991 
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Beispiel 





Eingabe: 
P,Q 


____| Stammdaten 
lesen 
PLAY-Taste 
drücken 
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Den Bruch > berechnen, weil er mehrfach auftritt. 


-p 2 
ei -q berechnen. 


xı undx, berechnen. 
Die Ergebnisse „ausgeben“. 


1.1 Ablaufplan 


Die Darstellung des Lösungsweges erfolgt gewöhnlich unter Verwendung genormter Sym- 
bole (s. Bild 1.1) als Programmablaufplan. Der Plan für den obigen, verbalen Ablauf ist in 
Bild 1.2, Version a dargestellt. Um Mißverständnissen vorzubeugen, sei darauf hingewiesen, 
daß die Zeile 


A=-P/2 


nicht als mathematische Gleichung gemeint ist. Sie bedeutet vieimehr, daß die auf dem 
Speicherplatz P stehende Zahl durch 2 geteilt, das Vorzeichen geändert und das Ergebnis 
auf dem Platz A gespeichert werden soll. Entsprechend sind die anderen Zeilen des Recht- 
eckes zu verstehen. 






Eingabe: 
P,Q 


Ausgabe: 
X1,X2 






„Radikand 
negativ‘ 





SEE 





Bild 1.2 Lösung der quadratischen Gleichung 
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Wenn mit dem angesprochenen Ablauf auch die Lösungen quadratischer Gleichungen ermit- 
telt werden können, enthält der Plan noch eine Schwachstelle. Geben Sie beispielsweise für 
P und Q jeweils eine 2 ein, ergibt sich A? als 1, und es wird versucht, die Wurzel aus — 1 zu 
ziehen. Ihr Rechner weiß, daß das im Bereich der reellen Zahlen nicht geht, und bleibt mit 
einer entsprechenden Fehlermeldung stehen. 


Derartige Situationen sollten beim Entwurf des Ablaufplans erkannt und durch geeignete 
Maßnahmen verhindert werden. Wir dürfen nicht sofort die Wurzel, sondern zunächst nur 
den Radikanden berechnen lassen. Wenn dieser negativ ist, lassen wir die Meldung „Radi- 
kand negativ‘‘ ausgeben, damit der Benutzer erkennt, warum das Programm keine Zahlen 
auswirft. Im anderen Fall wird der normale Rechengang fortgesetzt. Den so modifizierten 
Ablaufplan zeigt Bild 1.2, Version b. 


Solange Sie sich auf dem Gebiet der Programmierung noch als Anfänger fühlen, sollten Sie 
Ablaufpläne in der hier vorgestellten Ausführlichkeit zeichnen. Ein solcher Plan erleichtert 
Ihnen die Suche nach Fehlern in der Programmlogik. Als Konvention ist einzuhalten, daß 
die Ablauflinie beim Start-Symbol beginnt, nur von oben in die anderen Symbole hineinge- 
führt und nur nach unten — bei der Abfrage auch seitlich — herausgeführt wird. 


1.2 BASIC-Programm 


Mit der Erstellung des detaillierten Ablaufplans ist der konstruktive Teil der Programment- 
wicklung erledigt. Die heutigen Rechner sind jedoch noch nicht in der Lage, diesen Plan un- 
mittelbar abzuarbeiten. Sie verstehen nur Programmiersprachen. Bei Ihrem Rechner ist das 
cbm-BASIC eine Erweiterung des Dartmouth-BASIC (Beginners All-purpose Symbolic In- 
struction Code). Deshalb müssen Sie den im Plan festgelegten Sachverhalt in eine gleichwer- 
tige Folge von BASIC-Anweisungen übersetzen (,‚codieren‘‘). 
Für den Plan aus Bild 1.2, Version b, ergäbe sich folgendes Programm: 

18INPUT”P,Q‘;P,Q 

2BA=-P/2:R=At12-0Q 

30IF R<® THEN PRINT "RADIKAND NEGATIV“: GOTO 6$ 

ADW=SQR(R):X1=A-W:X2=A+W 

SdPRINT X1,X2 

6D END 


Dieses Programm kann dann von Ihrem Rechner interpretiert und ausgeführt werden. 


1.3 Programmtest 


Nur in Ausnahmefällen ist ein neues Programm fehlerfrei. Dagegen ist keineswegs ungewöhn- 
lich, daß schon im Ablaufplan logische Fehler stecken, und formale Fehler treten fast im- 
mer auf. Diese Verstöße gegen die BASIC-Sprachregeln werden bei der Programmausfüh- 
rung (vom Interpreter) entdeckt und mit einer entsprechenden Meldung angezeigt. Der Be- 
nutzer kann die Fehler beheben und neu starten. 
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Logische Fehler zu erkennen ist allein dem Menschen vorbehalten. Aber auch dabei, insbe- 
sondere bei der Lokalisierung der Fehler, kann der Rechner helfen. Besonders beachtens- 
wert ist die Möglichkeit, ein Programm an beliebiger Stelle unterbrechen zu können. Man 
kann sich Zwischenergebnisse anzeigen lassen und ggf. ändern und danach die Ausführung 
fortsetzen. 

In jedem Fall ist durch eine Reihe geeigneter Testläufe nachzuweisen, daß ein Programm 
die gestellten Anforderungen auch tatsächlich erfüllt. Beachten Sie, daß ein Lauf mit nega- 
tivem Ausgang für einen Fehlernachweis ausreicht, während selbst durch viele korrekte 
Durchläufe nur die Wahrscheinlichkeit für das Vorliegen von Fehlern reduziert wird. Über- 
legen Sie sich jeweils, wie Sie mit wenig Aufwand an Testläufen ein Maximum an Sicherheit 
erzielen. 





2 Handhabung des Rechners 


In diesem Kapitel sollen Sie lernen, mit dem Gerät umzugehen, und einen Überblick über 
die wichtigsten Spezialtasten bekommen. Das Kapitel gliedert sich in einen Übungsteil und 
einen Textteil. An den nachfolgenden Aufgaben können Sie dann prüfen, wie weit Sie sich 
den gebotenen Stoff tatsächlich erarbeitet haben. In dieser Form sind auch die weiteren 
Kapitel aufgebaut. 

Bei den Experimenten zu Beginn der Kapitel sollten Sie in der Regel die Reaktion des Rech- 
ners notieren. Streuen Sie keine eigenen Versuche ein, weil dadurch die Reaktion beeinflußt 
und Verweise vom Textteil auf die vorangegangenen Übungen für Sie unverständlich werden 
könnten. 

Zumindest bei Ihren ersten Versuchen sollten Sie die vorgeschriebenen Anweisungen sehr 
genau lesen. Da fast alle Tasten doppelt belegt sind, müssen Sie jeweils entscheiden, ob, wie 
z.B. bei der Taste INST/DEL, die Hauptfunktion (DEL, ohne SHIFT-Taste) oder die Ne- 
benfunktion (INST, mit SHIFT-Taste) verlangt ist. 

Wenn man mit dem cbm-Rechner wirklich vertraut ist, zahlt sich das schon bei den vorgese- 
henen Übungen aus. Auch bei der Fehlerbeseitigung profitiert man davon. Daher muß dem 
Leser geraten werden, so oft wie möglich am Gerät zu arbeiten, alle vorgesehenen Experi- 
mente durchzuführen, möglichst viele Aufgaben zu lösen und, soweit Programme gefordert 
sind, diese auch tatsächlich auszuprobieren. 


a) Beginnen Sie nun die Experimente, und schalten Sie das Gerät mit dem Kippschalter 
hinten links ein. Der Rechner wird mit der Meldung 


### COMMODORE BASIC ### 
31743 BYTES FREE (Zahl geräteabhängig) 
READY 


reagieren. Unter dem R von READY blinkt der Cursor, der die Stelle des Bildschirms 
zeigt, die als nächste beschrieben wird. Schreiben Sie, und beobachten Sie dabei den 
Cursor (Leerzeichen erzeugen Sie mit der großen Taste am unteren Rand der Tastatur): 


?2+3 
Drücken Sie die RETURN-Taste. 
b) Schreiben Sie 
?6-4 


Wie reagiert der Rechner? 
Drücken Sie die RETURN-Taste. 
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c) Schreiben Sie 
31-5 
Drücken Sie die RETURN-Taste. Beachten Sie die Unterschiede zu den vorausgegange- 
nen Fällen. 


d) Probieren Sie jetzt die Cursor-Steuertasten aus, die Sie mit der Aufschrift CRSR im 
rechten Teil der Tastatur finden. Betätigen Sie diese Tasten mehrere Male, auch bei ge- 
drückter SHIFT-Taste, und registrieren Sie die resultierende Cursor-Bewegung. Bringen 
Sie den Cursor auf die 3 in der Zeile „31 + 5“. (Jetzt blinkt die 3.) Betätigen Sie einige 
Male die INST-Taste. Schreiben Sie 


? 
und drücken Sie die RETURN-Taste. 


e) Setzen Sie jetzt den Cursor hinter den Punkt der vorhergehenden Zeile, und betätigen 
Sie mehrfach die DEL-Taste. Nachdem das Wort „READY“ gelöscht ist, schreiben Sie 
vor die 3 in der untersten Zeile ein Fragezeichen und hinter die 6 

+5/4 
Drücken Sie die RETURN-Taste. 


f} Schreiben Sie jetzt 
25?25+4,6+2,4 
Drücken Sie die RETURN-Taste. Notieren Sie Ihre Vermutung darüber, weshalb nicht 
gerechnet wird. Dann setzen Sie den Cursor auf das Fragezeichen in der letzten Zeile und 


drücken so oft die DEL-Taste, bis die vor dem Fragezeichen stehenden Ziffern gelöscht 
sind. Betätigen Sie die RETURN-Taste. 


g) Löschen Sie jetzt die letzte Zeile (READY), setzen Sie vor die 9 ein Fragezeichen und 
drücken Sie die RETURN-Taste. Falls Ihr Rechner keine 9 zeigt, müssen Sie Punkt f) 
wiederholen (beachten Sie die Kommas!). 


h) Bewegen Sie den Cursor um 3 bis 5 Zeilen nach unten und beobachten Sie dabei den 
Bildschirm. Danach führen Sie den Cursor auf das R in der untersten Zeile und schreiben 


2 6.25/.25 


Bewegen Sie jetzt den Cursor eine Zeile nach unten, und betätigen Sie die RETURN-Ta- 
ste. Setzen Sie dann den Cursor auf den Schrägstrich, und betätigen Sie die RETURN- 
Taste erneut. 


2.1 Ein- und Ausschalten 


Nun wollen wir erörtern, was Sie bei den vorstehenden Experimenten kennengelernt haben. 
Das Ein- und Ausschalten des Gerätes erfolgt mit dem Kippschalter auf der Rückseite links. 
Nach dem Einschalten wird der nutzbare Speicherbereich angezeigt. Diese Angabe sollte bei 
Ihrem Rechner stets gleich sein, andernfalls wiederholen Sie das Einschalten. Bleibt die An- 
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zeige falsch, versuchen Sie, mit Hilfe des Bedienungshandbuches die Störung zu beheben, 
oder wenden sich in schwerwiegenden Fällen an den Wartungsdienst. 

Normalerweise wird sich Ihr Rechner als arbeitswillig erweisen, was er Ihnen durch das 
Wort READY anzeigt. Nehmen Sie sein Angebot an und sagen Sie ihm, was er tun soll. 
Abgesehen von einigen Spezialtasten, führt das Betätigen einer Taste zu der Anzeige des 
entsprechenden Zeichens auf dem Bildschirm. Der Cursor, ein blinkendes Quadrat, zeigt 
jeweils an, wohin das nächste Zeichen gesetzt wird. Nach dem Schreiben rückt er eine Stel- 
le weiter. War die Zeile voll, springt er an den Anfang der nächsten Zeile. Falls der Cursor 
schon am unteren Bildschirmrand stand, wird zuvor der ganze Schirminhalt um eine Zeile 
angehoben, so daß die oberste Zeile verlorengeht. 


2.2 Spezialtasten 


Durch die Cursor-Steuertasten können Sie den Cursor nach links, rechts, oben, unten oder 
in die linke obere Ecke bewegen. Schon hier sei erwähnt, daß Sie diese Bewegungen auch 
programmieren können (s. Kap. 5). Die Tasten werden dann nicht bei ihrer Betätigung wirk- 
sam, sondern erst während der Ausführung des Programms, in das sie eingefügt wurden. 


Die Steuerungsmöglichkeiten des Cursors erweisen sich als sehr nützlich, wenn Teile einer 
auf dem Bildschirm stehenden Zeile gelöscht oder geändert werden sollen. Um ein Zeichen 
zu ersetzen, genügt es, den Cursor auf die fragliche Position zu bewegen und das neue Zei- 
chen zu schreiben. So haben wir in der Übung h) das Wort READY bei R beginnend Zei- 
chen für Zeichen durch einen Rechenausdruck überschrieben. 

In Übung e) haben Sie gesehen, wie man ein Zeichen löschen kann: Der Cursor wird hinter 
das zu löschende Zeichen gesetzt und die DEL-Taste betätigt. Daraufhin verschwindet das 
vor dem Cursor stehende Zeichen. Der Cursor und der Rest der Zeile rücken eine Stelle 
nach links. Sollen mehrere benachbarte Zeichen gelöscht werden, sollte man von rechts her 
vorgehen, weil der Cursor dann nur einmal positioniert werden muß. 


Wollen Sie Zeichen einfügen, wie das Fragezeichen in Übung d), muß dafür zunächst Platz 
geschaffen werden. Dazu wird der Cursor auf die Stelle gebracht, vor die der Einschub ge- 
setzt werden soll. Jedes Drücken der INST-Taste rückt den mit der Cursor-Position begin- 
nenden Rest der Zeile um eine Stelle nach rechts. Der Cursor bleibt am Anfang der Lücke 
stehen. Ist diese groß genug, kann die vorgesehene Ergänzung geschrieben werden. 


Wenn der Cursor in einer soeben mit INST geschaffenen Lücke steht, können Sie ihn nicht 
mit den Steuertasten bewegen. Diese Tasten werden gespeichert, was Ihnen durch besonde- 
re Symbole angezeigt wird. Nur die DEL-Taste wirkt normal. 


2.3 Aufbau von Zeilen 


Abgesehen von der Cursor-Bewegung bzw. der Zeichenanzeige auf dem Bildschirm, hat die 
Betätigung von Tasten keine erkennbare Rechnerreaktion hervorgerufen. Eine Ausnahme 
bildet die RETURN-Taste. Beachten Sie, daß alle Berechnungen erst nach Betätigung die- 
ser Taste durchgeführt wurden. Bis dahin standen die eingegebenen Zeichen nur im Bild- 
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schirmspeicher. Über diesen besonderen Speicherbereich können Sie insofern frei verfügen, 
als Sie beliebige Zeichen in beliebiger Reihenfolge auf beliebige seiner Plätze setzen können. 
Da stets alle dort gespeicherten Zeichen angezeigt werden, sehen Sie jederzeit den genauen 
Speicherinhalt. Durch Betätigung der RETURN-Taste wählen Sie aus diesem Speicherbe- 
reich jene Zeile aus, in der der Cursor steht, und übergeben sie dem Rechner zur Bearbei- 
tung. Falls diese Zeile mit einer Zahl beginnt (s. Übungen c) und f}), gelten die Zahl als Zei- 
lennummer und die Zeile als Programmzeile. Sie wird im Programmspeicher abgelegt und 
zum jetzigen Zeitpunkt nicht ausgeführt. 


Die Zahlen von ß bis 63999 sind als Zeilennummern zugelassen. 


Zeilen, die nicht mit einer Zahl beginnen, werden nach Betätigung der RETURN-Taste so- 
fort interpretiert und ausgeführt. 


2.4 Ergebnisdarstellung 


In allen Fällen, bei denen nach Eingabe der RETURN-Taste ein Ergebnis angezeigt wurde, 
begann die übergebene Zeile mit einem Fragezeichen. Dieses sagt dem Rechner, daß er auf 
den Bildschirm ausgeben soll. Das gleiche Ergebnis wie in Übung a) hätten wir auch mit der 
Zeile 


PRINT 2+3 


erreicht. Wegen des geringeren Schreibaufwandes wird jedoch allgemein das Fragezeichen 
bevorzugt. 


PRINT ist das BASIC-Kennwort für Ausgabe. 
Bei der Ausgabe auf den Bildschirm darf statt PRINT ein Fragezeichen geschrieben 
werden. 





Bei Programmzeilen verschwindet auch dieser optische Unterschied. Wenn Sie sich eine pro- 
grammierte Ausgabeanweisung erneut auf dem Bildschirm zeigen lassen (s. Kap. 4), wird 
stets das Wort PRINT geschrieben. 


| Hinter dem Fragezeichen bzw. hinter PRINT dürfen mehrere durch Komma oder 
Semikolon getrennte Ausdrücke stehen. 


Wenn mehrere Ausdrücke aufgeführt sind, wie in Übung f), erscheinen die Ergebnisse neben- 
einander. Zu erklären, wie das im einzelnen geregelt wird, führt hier zu weit. Wir werden in 
Kapitel 5 näher darauf eingehen. 


2.5 Aufgaben 


2-1 Welche Bedeutung hat der Cursor? 
2-2 Was bewirkt die RETURN-Taste? 


2-3 Wie kann das Wort FLY, ohne die Buchstaben F,L oder Y erneut zu schreiben, in 
FLOPPY umgewandelt werden? 


2-4 Wie wird durch Ergänzung der Buchstaben B und R sowie mit den verschiedenen 
Spezialtasten das linksbündig geschriebene Wort UNSINN zu RUBIN? 


2-5 Wie reagiert der Rechner auf Zeilen, die mit einer Ziffer beginnen? 
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3 cbm-Arithmetik 


In diesem Kapitel soll die Arithmetik Ihres Rechners erörtert werden. Damit Sie sich bei den 
nachstehenden Übungen auf diesen Problemkreis konzentrieren können, sollten Sie kurz re- 

kapitulieren, was über den Cursor, die Cursorsteuerung und insbesondere die Korrektur von 

Tippfehlern gesagt wurde. Wenn Sie sich fit fühlen, schalten Sie den Rechner ein und begin- 

nen. 


a) Schreiben Sie 
? (22 - 29)*3/2 
und beenden die Zeile mit der RETURN-Taste, 
b) Schreiben Sie 
A = (22 - 29)*3/2 
"A 
wieder jeweils gefolgt von der RETURN-Taste. 


Ist Ihnen die Wirkung der RETURN-Taste klar? Wenn nicht, sehen Sie sich den betreffenden 
Abschnitt des vorigen Kapitels gleich noch einmal an. 

Auch die weiteren Beispiele sollen Sie, genau wie vorgeschrieben, Zeile für Zeile an den Rech- 
ner übergeben, und dazu müssen Sie ja jede Zeile mit der RETURN-Taste abschließen. Da 

Sie diese Notwendigkeit inzwischen kennen, wird von nun an nicht mehr auf das Betätigen 
dieser Taste hingewiesen. 


c) Schreiben Sie jetzt 


B= 213 
C=B-A/2 
?A,B,C 


Die mittlere Zahl, die 8, ist das Ergebnis von 213. Vielleicht haben Sie es erraten: ge- 
rechnet wurde 2° = 2*2*2=8. 
d) Vergewissern Sie sich, daß die Zahlen noch gespeichert sind: 
?A,B,C 
Schreiben Sie jetzt 
3B?A,B,C 


3 cbm-Arithmetik 11 





Wissen Sie noch, warum diese Zeile nichts bewirkt? Sie wird als Programmzeile angese- 
hen und im Programmspeicher abgelegt. Nun soll das gespeicherte Programm (hier: eine 
Zeile) ausgeführt werden. Dafür schreibt man das Kommando 


RUN 


Falls wiederum nichts passiert, haben Sie die RETURN-Taste nicht betätigt. Tun Sie es! 
Zum Vergleich geben Sie jetzt noch einmal folgende Zeile ein: 


?A,B,C 


Registrieren Sie die Unterschiede in Ihren Anweisungen und in der Reaktion des Rech- 
ners, bevor Sie das nächste Experiment beginnen. 


e) Löschen Sie mit der CLR-Taste den Bildschirm. (Der Cursor blinkt links oben.) Schrei- 
ben Sie 


2BA=7:B=9 
?A,B 

jetzt geben Sie das Kommando 
RUN 


Dieses Ergebnis wollen wir kurz erläutern. Sie haben mit dem Kommando RUN folgen- 
des Programm ausgeführt: 


2D2A=7T:B=9 
30 ?A,B,C 
Die Zeile mit der Nummer 3 stand nämlich noch im Programmspeicher, auf den sich 


das Löschen des Bildschirms nicht ausgewirkt hat. Ausgegeben wurden daher die in Zei- 
le 20 gesetzten Werte und für C der Wert A 


f} Geben Sie nun folgende Zeilen ein: 
5ß?A,E,Z 
18A=1.1 
39E=6-A12 
29A=22 
48Z=5E+3 
RUN 


Versuchen Sie kurz, die Ergebnisse zu deuten. Das wird Ihnen leichter fallen, wenn Sie 
sich das Programm anzeigen lassen. Schreiben Sie 


LIST 


Abgesehen von der Ungenauigkeit bei der Berechnung von E ist das Ergebnis wohl plau- 
sibel. 


g) Jetzt wollen wir das Programm löschen: 
NEW 
Wer mißtrauisch ist, mag den Erfolg mit LIST bzw. RUN kontrollieren. 
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3.1 Zahlen 


Lassen Sie uns nun die Schreibregeln für Zahlen zusammenstellen. 
Eine Zahl wird als Folge von Dezimalziffern, ggf. mit einem Vorzeichen, geschrieben. 
Zahlen ohne Vorzeichen sind positiv. 
Zur Abgrenzung des gebrochenen vom ganzen Teil der Zahl dient der Dezimalpunkt! 
Hinter die Ziffernfolge dürfen der Buchstabe E und ein ganzzahliger Zehnerexponent 
gesetzt werden. 

Beispiele: 
-695 | 47.11 | 097 | + 700E-2 | 7. 

Beispiele gleichwertiger Zahlen: 

05 | +95 | 5 | sppE-3 | .905E2 | + 95E +91 D 


Es soll noch einmal betont werden, daß anstelle des bei uns üblichen Dezimalkommas in 
BASIC der Dezimalpunkt zu schreiben ist. Ungewöhnlich ist für manchen Leser wohl auch 
die halblogarithmische Zahldarstellung. Diese dient besonders bei Zahlen mit sehr großem 
oder sehr kleinem Betrag als abkürzende Schreibweise. 


Wer sich bei Übung f) darüber gewundert hat, daß Z den Wert 5ßßQ trug, hat inzwischen 
wohl die Erklärung gefunden: 5E + 3 heißt 5 - 19° und nicht „5 mal E plus 3“. 


3.2 Variablen 


Größen wie A und B heißen in BASIC Variablen. 


Jeder Variablen wird automatisch ein Speicherplatz zugeordnet. 

Auf dem Platz einer Variablen steht zu jeder Zeit genau eine Zahl, der Variablenwert, 

der durch geeignete Anweisungen verändert werden kann. 

Eine Variable wird über ihren Namen angesprochen. 
Zu unterscheiden ist jeweils zwischen dem Variablennamen und dem Variablenwert. Den 
Namen dürfen Sie als Adresse eines Speicherplatzes ansehen, während der Inhalt dieses 
Platzes den Wert bildet. Zwei Variablen X und Y sind also nicht von vornherein verschie- 
den. Sie belegen zwar jede einen eigenen Platz, aber die Werte können gleich sein. 


Wir müssen nun lernen, welche Variablennamen erlaubt sind. 


Variablennamen sind 1- oder 2-stellig. Das erste Zeichen muß ein Buchstabe, das 
zweite darf ein Buchstabe oder eine Ziffer sein. 


ST, TI und TO dürfen nicht als Namen gewöhnlicher Variablen benutzt werden. 
Beispiele zulässiger Namen sind 
Ro | K | v2 0 
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Es soll erwähnt werden, daß Ihr Rechner oft längere Namen zuläßt, z.B. ROSE oder ROST. 
Zur Identifizierung nutzt er aber nur die ersten beiden Zeichen, so daß RO, ROSE oder 
ROST demselben Speicherplatz zugeordnet sind. Wer diese Eigenart nicht ständig bedenkt, 
wird sich bei Verwendung längerer Namen manchen unnötigen Programmfehler einhandeln. 
Längere Namen werden zurückgewiesen, wenn sie ein BASIC-Wortsymbol enthalten (z.B. 
TO in OTTO). Das geschieht aber erst bei der Programmausführung, so daß Sie bei häufiger 
Verwendung eines solchen Namens viel Zeit für die Korrektur verschenken. Daher wird 
dringend geraten, für gewöhnliche Variablen höchstens 2-stellige Namen zu verwenden. 

TO ist als Variablenname verboten, weil es Bestandteil der Schleifenanweisung ist (s. Kap.11). 
TlundST sind Systemvariablen, die Sie zwar benutzen, aber nicht verändern dürfen. TI ent- 
hält die Zeit in sechzigstel Sekunden. Diese läuft vom Einschalten des Rechners bzw. von 
der letzten Wertzuweisung TI$= ""hhmmss‘“, z.B. T1$ = "0855ß®"‘ (s. Abschnitte 3.5 und 
5.1). ST wird bei jeder Datenübertragung zwischen dem Rechner und einem Peripheriegerät 
vom Rechner gesetzt. Das bietet die grundsätzliche Möglichkeit, über den Wert von ST auf 
die Ursache eventueller Störungen zu schließen. 


3.3 Arithmetische Operatoren 


Die Übungen dieses Kapitels haben gezeigt, daß Ihr Rechner addieren (+), subtrahieren (-), 
multiplizieren (*), dividieren (/) und potenzieren (t) kann. Im Gegensatz zur gebräuchli- 
chen Formelschreibweise müssen Sie in BASIC das Symbol für die gewünschte Rechenart 
stets schreiben. Bei der Multiplikation wird das von Anfängern gern vergessen, zumal wir ja 
gewohnt sind, den Term 
2ab 
einer algebraischen Formel als Produkt ‚2 mal a mal b‘‘ zu verstehen. In BASIC muß es aber 
2*A*B 
heißen. 
Oft führt ein vergessener Stern zu einem Verstoß gegen die BASIC-Regeln (z.B. 2AB oder 
2A*B), so daß der Rechner Ihnen die Nummer der fehlerhaften Zeile angeben kann. Mehr 
Kopfzerbrechen werden Ihnen die Fälle bereiten, bei denen die BASIC-Anweisung inhalt- 
lich falsch, aber formal richtig ist. Wenn Sie für das obige Produkt 2*AB codieren, heißt das 
Multiplikation mit dem Wert der Variablen AB. Da jeder Variablen beim ersten Auftreten 
ein Speicherplatz zugeordnet wird, ist ein Speicherplatzinhalt selbst dann vorhanden, wenn 
Sie den Variablenwert noch nicht definiert haben. 


Für den Fall, daß ein Operand wie die Zahl 7 in dem Ausdruck 
23-7/4 


zwischen zwei Operationszeichen steht, muß geregelt sein, in welcher Reihenfolge diese 
Operatoren abgearbeitet werden. Dazu wurde die bekannte Regel „Punktrechnung geht vor 
Strichrechnung‘ in BASIC übertragen und der Potenzierung ein noch höherer Rang einge- 
räumt. Soll von der hieraus resultierenden Reihenfolge bei der Berechnung eines Ausdrucks 
abgegangen werden, müssen Paare runder Klammern gesetzt werden. Damit ergibt sich fol- 
gende Rangordnung: 


14 3 cbm-Arithmetik 














Rang Symbol Bedeutung 
0 ( ) Klammern 
1 t Potenzierung 
2 * und / Multiplikation und Division 
3 + und - Addition und Subtraktion 





Von Bedeutung ist noch, daß der linke Operator Vorrang erhält, wenn zwei Operatoren 
gleicher Rangstufe in Konkurrenz zueinander stehen. 
3.4 Arithmetischer Ausdruck 


Wenn man Zahlen oder Variablen durch arithmetische Operatoren verknüpft, erhält man ei- 
nen arithmetischen Ausdruck. 


Beispiele: 
Algebra BASIC 
atb A+B 
(b-7,5)c (B - 7.5)*C 
2x + 2y) 2/3*(X + 2*Y) 
a * 
bc A/(B*C) 
m: A/B*C 
2,5[3(x-7,1)+b] 2.5*(3*(X -7.1)+B) 
a+tb 
2 (A+ B)/(C+ D) 
a° + 3bx At5 + 3*B*X 
grn Kt(5+N) o 


Als weiterer Bestandteil dürfen in arithmetischen Ausdrücken noch Funktionen (s. Kap. 12) 
auftreten. Diese repräsentieren jeweils eine Zahl, den Funktionswert. Zu beachten ist, daß 
das Argument der Funktion stets eingeklammert werden muß. 


Beispiele: 
Algebra BASIC 
x SOR(X) 
14 1/A + SOR (B) 
Y25y+t SOR(2.5*Y) + T 
ya SOR ((3*N = 1)/(A+ B)) 
——Y (X - Y)/(3*SQR (2*(U + 2))) . 


3y2(U +2) 
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Die Regeln für die Bildung arithmetischer Ausdrücke wollen wir noch einmal zusammenfas- 
sen: 


Ein arithmetischer Ausdruck enthält als Operanden Zahlen, Variablen oder Funk- 
tionen. 

Wenn 2 oder mehr Operanden auftreten, müssen sie durch arithmetische Operatoren 
verknüpft werden. 

Die Berechnungsreihenfolge ist grundsätzlich durch die Rangordnung der Operatoren 
bestimmt. 

Die Berechnungsreihenfolge kann über Paare runder Klammern gesteuert werden. 

Es dürfen überflüssige runde Klammernpaare gesetzt werden. 


3.5 Wertzuweisung 


Besondere Aufmerksamkeit verdienen die Zeilen, in denen ein Gleichheitszeichen steht, wie 
z.B. 


A = (22 - 29)*3/2 


Diese Zeile bewirkt folgende Aktionen: 


Subtrahiere 29 von 22. (Ergebnis ist -7) 
Multipliziere - 7 mit 3. (Ergebnis ist -21) 
Dividiere - 21 durch 2. (Ergebnis ist - 19.5) 


Speichere - 19.5 auf dem Platz A. 

Sehen wir uns ein anderes Beispiel an. Die Zeile 
K=K+] 

wird so verstanden: 


Hole die auf dem Platz K stehende Zahl. 
Addiere 1 hinzu. 
Speichere das Ergebnis auf dem Piatz K. 


Bei diesem Speichervorgang wird der alte Wert von K zerstört, so daß mit der Anweisung 
K=K +] die auf dem Platz K stehende Zahl um 1 erhöht wird. Hier zeigt sich deutlich der 
Unterschied zu mathematischen Gleichungen. Als Gleichung aufgefaßt wäre K=K +1 un- 
sinnig; denn nach Subtraktion von K ergibt sich der Widerspruch 0 = 1. 

In BASIC bedeuten die hier erörterten Zeilen Wertzuweisungen. Sie bewirken, daß der Wert 
eines arithmetischen Ausdrucks berechnet und gespeichert wird. Wohin gespeichert werden 
soll, wird durch Angabe einer Speicherplatzbezeichnung vor dem Gleichheitszeichen festge- 
legt, während hinter dem Gleichheitszeichen steht, wie die fragliche Zahl zu ermitteln ist. 
Ein arithmetischer Ausdruck liefert nach seiner Auswertung eine Zahl. Wenn diese für eine 
spätere Verwendung gespeichert werden soll, müssen Sie eine Wertzuweisung codieren. 


Die allgemeine Form der Wertzuweisung ist 
Variable = arithmetischer Ausdruck. 
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Wie oben bereits erläutert, bewirkt diese Anweisung, daß der Wert des rechts stehenden 
Ausdrucks ermittelt und auf den Platz der links stehenden Variablen gespeichert wird. 


X=UundU=X sind in BASIC nicht gleichwertig. 


Nach X = 1: U = 2: X = U haben beide Variablen den Wert 2. 
Nach X = 1: U = 2: U =X haben beide Variablen den Wert 1. 


Beispiel: Eine auf dem Platz X stehende Zahl, z.B. ein Preis in DM, soll auf die zweite 
Nachkommastelle gerundet werden. 

Bei derartigen Rundungsproblemen greift man auf die Funktion INT zurück (s. Kap. 12), 
mit der der ganzzahlige Teil einer Zahl ermittelt wird. INT (4.1) ergibt 4, aber INT (4.99) 
ebenfalls. Übliche Rundungskonvention hingegen ist, ab einschließlich 9.5 aufzurunden. 
Um dafür INT einsetzen zu können, muß für eine Rundung das Argument vorher um’ 9.5 
erhöht werden. INT (4.99 + 9.5) ergibt genauso wie INT (4.5 + ®.5) und INT (5.49 + 9.5) 
eine 5. In unserem Beispiel muß vor und nach dem Abschneiden des gebrochenen Teils 
noch um 2 Dezimalstellen verschoben werden. Daher lösen wir unser Problem mit der Wert- 
zuweisung 


X = B.01*INT(190*X + 0,5) ° 


3.6 Integer-Variablen 


Für Leser, die nur gelegentlich programmieren wollen oder wenig Programmiererfahrung 
haben, ist der in diesem Abschnitt dargestellte Stoff entbehrlich. Sie sollten diesen Abschnitt 
übergehen. Wir haben ihn nur aufgenommen, um denen, die besonders große und besonders 
komplizierte Programme erstellen, weitergehende Möglichkeiten des com-BASIC aufzuzei- 
gen. 

Für numerische Probleme steht ein zweiter Variablentyp zur Verfügung: Integer. 


Namen von Integer-Variablen bestehen aus dem Namen einer gewöhnlichen Variab- 
len, dem das Prozentzeichen angefügt ist. 


Beispiele zulässiger Integer-Namen sind 

A% | BI% | HH% . 
Zwischen einer Integervariablen und der gewöhnlichen Variablen, die man nach Weglassen 
des Prozentzeichens erhält, besteht kein zwangsläufiger Zusammenhang. Beide dürfen im 
selben Programm auftreten. 
Integer-Variablen sind nur zur Speicherung ganzer Zahlen geeignet, wofür intern 16 Bit be- 
legt werden. Das erste Bit enthält das Vorzeichen. Der Betrag der Zahlen ist begrenzt auf 
215 - ] = 32767. 


Neben der Verwendung in arithmetischen Ausdrücken dürfen Integer-Variablen auch mit 
den logischen Operatoren NOT, AND und OR verknüpft werden, die dann bitweise wirken. 
Eine weitergehende Erläuterung hierzu finden Sie in den cbm-Handbüchern. 
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3.7 Aufgaben 


3-1 Welche Funktion hat das Fragezeichen? Ist sein Platz in der Eingabezeile für seine Funk- 
tion wesentlich? 


3-2 Übertragen Sie den Ausdruck a? + ab + b? in BASIC und lassen Sie ihn für a= 2 und 
b = 3 berechnen. 


3-3 Codieren Sie in BASIC: vr Lassen Sie den Ausdruck zur Kontrolle für x = 12,25, 
y=3,5 und z = 3,5 berechnen. 
32 
3-4 Lassen Sie M berechnen und speichern. Zeigen Sie das Ergebnis auf dem Bild- 


schirm an. Benutzen Sie die Zahlen aus Aufgabe 3-3. 
3-5 Was ist eine Variable? 
Wie werden Variablennamen geschrieben? 
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4 Programmaufbau und -ausführung 


In diesem Kapitel wollen wir üben, mit Programmen umzugehen. 


a) Schreiben Sie die folgenden Zeilen: 

NEW 

LIST 

2BA=2 

70?7A 

6A=A+1 
A=5 

LIST 

Beachten Sie die unterschiedliche Wirkung des LIST-Kommandos. 


b) Lassen Sie das Programm ausführen, nachdem Sie den Wert von A überprüft haben. 
Schreiben Sie deshalb 
TA 
RUN 
Wiederholen Sie das Ausführungskommando: 
RUN 
c) Das Programm kann auch anders gestartet werden. Schreiben Sie 
GOTO 69 
Setzen Sie jetzt fort mit 
A=20 
GOTO 69 
Da das Programm zwischenzeitlich nicht verändert wurde, sind die unterschiedlichen Er- 
gebnisse durch verschiedene Startwerte von A bedingt. Welche Startwerte wurden tat- 
sächlich benutzt? Ist das Programm wirklich unverändert geblieben? Lassen Sie es zur 
Kontrolle anzeigen. 


d) Nun wollen wir das bisher benutzte Programm verändern. Schreiben Sie 


2DA=5:B=3 
80?A,B 
70B=B-1 
RUN 


Starten Sie das Programm noch einmal mit 
GOTO7$ 
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Die Deutung der Ergebnisse wird sicher erleichtert, wenn Sie das Programm vor Augen 
haben. Schreiben Sie deshalb 


LIST 


e) Auch auf folgende Weise kann ein Programm gestartet werden: 
RUN 79 
Rekonstruieren Sie die benutzten Startwerte. 


f) Schreiben Sie jetzt 
RUN 
LIST 69 
Bewegen Sie den Cursor auf das Plus-Zeichen, betätigen die Minus-Taste und dann die 
RETURN-Taste. Setzen Sie den Cursor unter READY und starten Sie das Programm er- 
neut. 


4.1 Programmbegriff 


In Kapitel 1 haben wir den Begriff Programm inhaltlich erklärt als zeitliche Folge der An- 
weisungen, die ein vorgelegtes Problem lösen. Daneben steht der rein formale Programmbe- 
griff Ihres Rechners. Wie Sie sich erinnern, werden Zeilen, die nicht mit einer Zahl begin- 
nen, nach Betätigung der RETURN-Taste sofort ausgeführt. Die anderen hingegen werden 
gespeichert. 


Ein Programm ist die Gesamtheit der im Rechner gespeicherten, mit einer Zahl be- 
ginnenden Zeilen. 


Es obliegt dem Programmierer, die beiden Programmbegriffe zur Deckung zu bringen. 
Neben der erwähnten Kennzeichnung der Programmzeilen dient die Zeilennummer noch 


verschiedenen anderen Zwecken. Das Programm aus Übung a) hätten Sie auch in der Rei- 
henfolge 


70? A 
6BA=A+I 
2A =2 


eingeben können. Wenn Sie sich dann mit LIST das aktuelle Programm zeigen lassen, erhal- 
ten Sie wieder 


2A =2 
6BA=AH+I 
70?A 


Ausschlaggebend sind also die auftretenden Zeilennummern und nicht ihre Reihenfolge bei 
der Eingabe. Halten wir fest: 


Die Programmzeilen werden vom Rechner aufsteigend nach der Zeilennummer 
sortiert. 


Diese Reihenfolge ist auch für die Programmausführung maßgebend, solange nicht mit 
speziellen Anweisungen in den Ablauf eingegriffen wird. 
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| Die Programmzeilen werden in aufsteigender Folge der Zeilennummern ausgeführt. 


Mitunter ist es angebracht, mehrere Anweisungen in eine Zeile zu schreiben. Dabei ist zu 
beachten: 


Wenn in einer Zeile mehrere Anweisungen stehen, müssen sie durch einen Doppel- 
punkt getrennt werden. 


Stehen in einer Zeile mehrere Anweisungen, werden sie von links nach rechts abge- 
arbeitet. 


Dem Anfänger wird jedoch geraten, nur eine Anweisung pro Zeile zu schreiben. Außerdem 
sollte er sich angewöhnen, Zeilennummern nicht fortlaufend, sondern mit einer Schritt- 
weite von mindestens 1 zu vergeben. Ist beides beachtet worden, wird es nämlich beson- 
ders einfach, in einem bestehenden Programm Anweisungen zu ergänzen, und das ist selbst 
nach längerer Programmiererfahrung oft erforderlich. 

Neben den ausführbaren Anweisungen dürfen in ein Programm auch Bemerkungen einge- 
fügt werden. 


Bemerkungen schreibt man in der Form 
REM beliebiger Text. 


Beispiel: REM PROGRAMM XXX, LETZTE AENDERUNG YYY o 


Formal werden Bemerkungen wie gewöhnliche Anweisungen behandelt. Der Unterschied 
zeigt sich erst während der Programmausführung. Wenn der BASIC-Interpreter das Befehls- 
kennwort REM findet, ignoriert er den Rest der Zeile. Daher dürfen Sie Bemerkungen auch 
hinter ausführbare Anweisungen setzen, natürlich durch einen Doppelpunkt getrennt. 


4.2 Programmkorrektur 


Nehmen wir an, zwischen B=B- 1 und ?A, B in Übung d) soll die Anweisung ?A*B einge- 
fügt werden. Dann gelingt das durch die Zeile 


75?A*B 
Diese wird ja wegen der automatischen Sortierung zwischen die Zeilen mit den Nummern 
70 und 89 eingeschoben. Merken wir uns: 


Eine Anweisung wird in ein Programm eingefügt, wenn man sie als Zeile mit einer ge- 
eigneten neuen Zeilennummer eingibt. 


Lassen Sie uns nun verfolgen, was in Übung d) bei der Eingabe der Zeile 


2BA=5:B=3 
in das Programm 

2DdA = 2 

6BA=A+1 


70? A 


4.3 Anzeige von Programmzeilen 21 








passierte, das die Zeile 29 schon enthielt. Das LIST-Kommando zeigte uns die Wirkung: 


20A=5:B=3 
6BA=-A+1 
usw. 


Die alte Zeile 2® ist also durch die neue ersetzt worden. Diesen Vorgang nutzen wir für das 
Ändern von Anweisungen: 


Eine Zeile wird geändert, indem man ihre Zeilennummer und den vollständigen neuen 
Zeileninhalt eingibt. 


Auf dem gleichen Prinzip basiert auch das Löschen einzelner Anweisungen. Wollen wir etwa 
die Zeile 


6BA=A+1 
entfernen, überschreiben wir sie durch 
60 (RETURN-Taste nicht vergessen!) 


Eine Zeile wird gelöscht durch Eingabe der betreffenden Zeilennummer (und Betäti- 
gung der RETURN-Taste). 


Mit dem NEW-Kommando wird das ganze Programm gelöscht. 


Das Ändern von Zeilen scheint auf den ersten Blick unbefriedigend, weil selbst bei Korrek- 
tur nur eines Zeichens die ganze Zeile eingegeben werden muß. Bei genauerer Betrachtung 
zeigt sich aber, daß nicht alle Zeichen der Zeile neu geschrieben werden müssen. Eingeben 
in den Rechner heißt doch, die RETURN-Taste zu drücken, wobei die Bildschirmzeile über- 
geben wird, in der der Cursor gerade blinkt. Es ist gleichgültig, wie diese Bildschirmzeile ent- 
standen ist. Sie dürfen auch nach einem LIST-Kommando den Cursor in die zu ändernde 
Zeile bewegen. Dann nehmen Sie die notwendigen Änderungen vor, notfalls unter Einschluß 
der Tasten INST und DEL, und drücken die RETURN-Taste. 


4.3 Anzeige von Programmzeilen 


Das oben geschilderte Vorgehen bei der Korrektur von Anweisungen wird noch effektiver, 
wenn man jeweils nur einen Teil des Programms auflistet. In Übung f) haben Sie bereits ge- 
sehen, wie eine einzelne Zeile aus dem Programmspeicher auf den Bildschirm geholt wird. 
Daneben stehen aber weitere Varianten des LIST-Kommandos zur Verfügung, die nachste- 
hend aufgeführt sind. 


Kommando Wirkung 

LIST führt zur Anzeige des ganzen Programms 

LISTm=-n zeigt die Zeilen von Nummer m bis einschließlich Nummer n 
LIST-n zeigt die Zeilen von Nummer ® bis einschließlich n 

LISTm- zeigt die Zeilen von Nummer m bis einschließlich Nummer 63999 


LISTK zeigt die Zeile k 
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4.4 Programmausführung 


Die Ausführung eines Programms kann mit verschiedenen Kommandos veranlaßt werden. 
Im Normalfali ist das RUN, womit das Wort und nicht die RUN-Taste gemeint ist. 


| Nach RUN wird das Programm ausgeführt. Begonnen wird in der Zeile mit der klein- 
sten Zeilennummer. 


Als Nebenwirkung des RUN-Kommandos ist zu notieren, daß zu Beginn der Ausführung 
alle numerischen Variablen den Wert ® haben. 


| RUN löscht alle Variablen. 


In der Testphase bringt es oft Vorteile, einen Lauf mitten im Programm zu beginnen und 
nicht bei der kleinsten Zeilennummer. Für diese Verlegung des Programmanfangs auf eine 
Zeile mit der Nummer n gibt es 2 Kommandos. Sie unterscheiden sich in ihrer Wirkung auf 
die Variablen. Diese können wahlweise gelöscht oder ihre aktuellen Werte beibehalten wer- 
den. 


Nach GOTO n wird bei Zeilennummer n beginnend das Programm ausgeführt. Die 
Variablen behalten ihren aktuellen Wert. 


Nach RUN n wird bei Zeilennummer n beginnend das Programm ausgeführt. Alle Va- 
riablen werden gelöscht. 
Beispiele sehen Sie in den Übungen c) und e). 
Ein weiteres Spezialkommando gestattet die Fortsetzung des Programms nach einer Unter- 
brechung. 
Nach einer Unterbrechung wird mit CONT die Programmausführung fortgesetzt. Die 
Variablen behalten ihren aktuellen Wert. 
Nach einer Fehlermeldung kann nicht mit CONT fortgesetzt werden. 
Zwei Möglichkeiten zur Unterbrechung eines Programms (der Erfolg wird durch READY 
angezeigt) wollen wir hier nennen. 
Mit der STOP-Taste kann das Programm unterbrochen werden. 
Wenn Eingabedaten erwartet werden, wird das Programm durch Eingabe einer leeren 
Bildschirmzeile unterbrochen. 
Die Ausführung eines Programms kann auch durch einprogrammierte Anweisungen beendet 
werden. 
END beendet die Ausführung. 
STOP beendet die Ausführung unter Angabe der aktuellen Zeilennummer. 
Gerade in der Testphase werden Sie hiervon gern Gebrauch machen. 


Sie können den aktuellen Stand einer Variablen, z.B. X, mit 
?X 
anzeigen lassen. 


Dadurch erhalten Sie Gelegenheit, den momentanen Stand des Programms zu kontrollie- 
ren, und können die Ausführung anschließend mit CONT fortsetzen. 
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Was ist aber zu tun, wenn Sie einen geringfügigen Fehler entdeckt haben und nach dessen 
Behebung den Programmlauf mit den aktuellen Variablenwerten fortsetzen wollen? Die so- 
fortige Korrektur fehlerhafter Zeilen entfällt; denn bei jedem Eingriff in den Programm- 
speicher werden alle Variablen gelöscht. Hingegen dürfen Sie wie in Übung c) Variablen- 
werte setzen, d.h. fehlerhafte Zahlen korrigieren. Als Kommando für die Fortsetzung des 
Programmlaufs stehen Ihnen dann CONT oder GOTO mit geeigneter Zeilennummer n zur 
Verfügung. 


4.5 Speicherbelegung 


In Kapitel 2 wurde schon erwähnt, daß der Speicher Ihres Rechners verschiedene Bereiche 
enthält. In einem sind alle Bildschirmzeilen abgelegt, in einem anderen die Programmzeilen, 
und in einem dritten Bereich liegen die Variablen. Sie kennen bereits Kommandos und Spe- 
zialtasten (z.B. NEW, CLR), mit denen einzelne dieser Bereiche gelöscht werden. Daneben 
haben Sie in den obigen Übungen gesehen, daß der Variablenbereich auch durch das RUN- 
Kommando gelöscht wird, während die Variablen bei einem Programmstart mit einem 
GOTO-Kommando erhalten bleiben. 

Auch für die Belegung der 3 genannten Speicherbereiche gibt es mehrere Varianten. Welche 
Eingabe- und Löschmöglichkeiten Ihnen zur Verfügung stehen, können Sie aus Bild 4.1 ent- 
nehmen. 











En 
Speicherbereich Eingeben Löschen 
Bildschirm — Betätigung von Tasten Alles: 
— LIST-Kommando — CLR-Taste 
— Ausgeführte PRINT- Ein Zeichen: 
Anweisung — DEL-Taste 
Programmtext — Zeilenweise aus dem Alles: 
Bildschirmbereich mit — NEW-Kommando 
Cursor und RETURN- Eine Zeile: 
Taste — Zeilennummer und 
— Ausgeführtes LOAD- RETURN-Taste 
Kommando 
Variablen — Automatische Platz- Alles: 
reservierung für vor- — CLR-Kommando 
kommende Variablen (auch programmierbar) 
— Inhalt durch Wertzu- — NEW-Kommando 
weisung oder Eingabe- — RUN-Kommando 
anweisung — Eingabe von Programmtext 

















Bild 4.1: Speicherbelegung 
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4.6 Aufgaben 


4-1 Wozu dient die STOP-Taste? 
4-2 Geben Sie folgendes Programm ein: 
10A=4 
2DA = A*X 
3B?A 
Wie können Sie im voraus sicherstellen, daß keine weiteren Zeilen im Programmspeicher 
stehen? 
Wie können Sie im nachhinein nachweisen, daß keine weiteren Programmzeilen ge- 
speichert sind? 
4-3 Starten Sie das Programm aus Aufgabe 4-2. 
Warum wird die Zahl ® ausgegeben? 
4-4 Wie können Sie ohne Programmänderung erreichen, daß das Programm aus Aufgabe 
4-2 eine 1 ausgibt? 
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5 Ausgabe auf den Bildschirm 


Wie wir schon aus Kapitel 2 wissen, werden die Ergebnisse eines Programmlaufs mit dem 
PRINT-Kommando auf dem Bildschirm angezeigt. Außerdem wissen wir, daß wir dieses 
Kennwort nicht ausschreiben müssen, sondern mit dem Fragezeichen abrufen können. In 
diesem Kapitel, besonders in den Experimenten, sollen Sie nun das Ausgabekommando 
näher kennenlernen. 


a) Löschen Sie den Programmspeicher und schreiben Sie 


xX=31:9°’X* 
Anschließend 
?X 
und dann 
7X = “ X 
b) Schreiben Sie 
100 E = 1.2E6 
118 U3 = "UMSATZ =“ 
139 ?U8 ;E;”DM“ 


Lassen Sie das Programm ausführen. 
c) Ergänzen Sie jetzt die Zeile 
129 ?’AUSSEN“; 
und lassen Sie das Programm erneut laufen. Sehen Sie sich die Abstände zwischen den 
Zahlen und Strings genau an. (Ein String ist eine Zeichenkette wie z.B. DM.) 
d) Ersetzen Sie in Zeile 139 die Semikolons durch Kommas und sehen Sie sich an, wie da- 
durch die Ausgabezeile verändert wird. 
e) Schreiben Sie 
116 T18= "EINNAHMEN“ 
126 T28 = KOSTEN“: K = 0.63*E 
136 T38 = "GEWINN':G =E-K 
140 ?T18;E: ?T28;K: 2:? T38;G 
und lassen Sie das Programm laufen. 
f) Jetzt wollen wir die Zahlen als Kolonne schreiben. Ergänzen Sie in Zeile 140 hinter je- 
dem der 3 Semikolons 
TAB(15); 
und starten Sie das Programm erneut. 
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g) Die Position eines Ausgabewertes kann nicht nur absolut, sondern auch relativ zum Vor- 
gänger positioniert werden. Dafür müssen Sie in Zeile 149 alle TAB-Angaben entfernen 
und wie folgt ersetzen: 

SPC (3) zwischen die Semikolons vor E 
SPC (7) zwischen die Semikolons vor K 
SPC (7) zwischen die Semikolons vor G 


Sehen Sie sich die Wirkung an. 


5.1 Textdarstellung 


Sie haben gesehen, daß der Rechner sowohl Zahlen als auch Zeichenketten ausgeben kann. 
Soll der Inhalt des Speicherplatzes X dargestellt werden, schreibt man 


?%X 
Durch die Anweisung 
1% 
wird dagegen der Buchstabe X ausgegeben, ein sog. String. 


Ein String ist eine Folge beliebiger Zeichen, die am Anfang und am Ende durch An- 
führungszeichen begrenzt ist. 

Alle Spezialtasten mit Ausnahme der DEL-Taste werden nicht sofort ausgeführt, son- 
dern als Teil des Strings gespeichert (und ggf. später ausgeführt), wenn sie innerhalb 
der Anführungszeichen betätigt werden. 


Bei der Korrektur von Tippfehlern beim Aufbau eines Strings werden Sie die Cursor-Steuer- 
tasten womöglich vermissen. Anstatt mit der DEL-Taste rückwärts alle Zeichen bis zum 
Fehler zu löschen, können Sie auch wie folgt vorgehen: Sie schreiben den String zu Ende 
und drücken die RETURN-Taste. Danach funktionieren die Spezialtasten wieder normal. 
Sie können den Cursor auf die fehlerhafte Stelle fahren, korrigieren in gewohnter Weise und 
geben erneut die RETURN-Taste. 
Die Programmierbarkeit der Spezialtasten bietet dem Benutzer u.a. die Möglichkeit, Ausga- 
bewerte an beliebiger Stelle des Bildschirms zu plazieren. Häufig soll auch vor der eigentli- 
chen Ausgabe der Bildschirm gelöscht werden. Dieses Löschen geschieht ja mit der CLR- 
Taste (SHIFT nicht vergessen!), die in einen String zu setzen ist. Die Anweisung sieht dann 
so aus: 

vi 
Der Bildschirm wird gelöscht, wenn diese Anweisung ausgeführt wird. 
Die vorangegangenen Übungen haben ferner gezeigt, daß es im cbm-BASIC neben den oben 
erklärten String-Konstanten auch String-Variable gibt. In Zeile 119 aus Übung b) haben wir 
davon Gebrauch gemacht und den String "UMSATZ = “ auf der Variablen U$ gespeichert. 


Namen von Stringvariablen bestehen aus dem Namen einer gewöhnlichen Variablen, 
dem das Dollarzeichen angefügt ist. 


TI$ ist eine Systemvariable, sie enthält die Zeit in der Form ""hhmmss“. 
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Abgesehen von den Systemvariablen TI und TI$ besteht zwischen einer Stringvariablen und 
der gewöhnlichen Variablen, die man nach Weglassen des Dollarzeichens erhält, kein 
zwangsläufiger Zusammenhang. Bei der Vergabe von Namen für Stringvariable braucht man 
keine Rücksicht auf benutzte gewöhnliche Variablen zu nehmen und umgekehrt. 


5.2 Ausgabeanweisung 


Fast alle bisherigen Übungen enthielten Ausgabeanweisungen. Deshalb sind Ihnen die nach- 
folgenden Regeln für diesen Befehlstyp wahrscheinlich schon geläufig. 
Die allgemeine Form der Ausgabeanweisung lautet 
PRINT Liste bzw. ?Liste 
In der Liste stehen Strings (als Konstante oder Variable} oder arithmetische Aus- 
drücke (s. Kap. 3). 
Die Bestandteile der Liste müssen durch Komma oder Semikolon getrennt, die Liste 
darf mit einem solchen Trennzeichen beendet werden. 
Die Liste darf fehlen. 


Durch die Ausgabeanweisung werden die Strings oder die Werte der arithmetischen Aus- 
drücke aus der Liste auf dem Bildschirm dargestellt. Deshalb mutet es wohl seltsam an, daß 
diese Liste fehlen darf. In diesem Falle wird natürlich nichts ausgegeben. Es wird nur der 
Cursor an den Anfang der nächsten Bildschirmzeile gesetzt. 


Zum Platzbedarf der Ausgabe auf dem Bildschirm ist festzuhalten: 


Ein String belegt für jedes seiner Zeichen eine Stelle. 


Der Platzbedarf einer Zahl wird durch die Anzahl ihrer Ziffern festgelegt zuzüglich 
einer Stelle für das Vorzeichen. 

Sollen in einer Zeile mehr Zeichen ausgegeben werden als der Bildschirm darstellen 
kann, wird der Überhang in die nächste Zeile gesetzt. 


5.3 Positionierung der Ausgabe 


Wenn Sie die Übungen c) und d) korrekt ausgeführt haben, haben Sie folgende Ausgabe- 
zeilen erhalten. 


Bei c: AUSSENUMSATZ= 1200009 DM 
Bei d: AUSSENUMSATZ= 1209099 DM 


Das Komma in der Ausgabeliste führt also zu größeren Abständen als das Semikolon. Be- 
achten Sie auch, daß das Wort AUSSEN mit der Ausgabeanweisung aus Zeile 12® und der 
Rest mit der aus Zeile 139 geschrieben wurde. So können die Daten einer Bildschirmzeile 
also von verschiedenen PRINT-Anweisungen stammen, während die Daten einer PRINT-An- 
weisung stets in eine Bildschirmzeile gesetzt werden. Der genaue Aufbau der Ausgabezeilen 
wird verständlich, wenn Sie sich folgende Regeln ansehen. 
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Jede 10. Stelle der Ausgabezeile ist vortabuliert. Mit dem Komma wird zur nächsten 
Tabulatorstelle vorgerückt. 

Hinter einem arithmetischen Ausdruck bewirkt das Semikolon einen Abstand von ei- 
ner Stelle zum nächsten Zeichen. Hinter einem String unterdrückt das Semikolon den 
Vorschub. 

Endet eine PRINT-Anweisung nicht mit einem Trennzeichen, steht der Cursor vor 
der nächsten Ein- oder Ausgabe am Anfang der nächsten Zeile. 


Von diesen Standardfestlegungen für eingeschobene Leerstellen und Tabulatorpositionen 

kann jedoch abgewichen werden. Dazu muß in die Ausgabeliste vor den Wert, der absolut 
(TAB) oder relativ zum Vorgänger (SPC) positioniert werden soll, eine entsprechende An- 
gabe eingefügt werden. Diese sollte durch Semikolons begrenzt werden, weil ihre Wirkung 
sonst durch die Vorschubwirkung des Kommas verfälscht wird. 


Mit SPC (n) werden n Leerstellen ausgegeben. 
Mit TAB (n) wird hinter die nte (also auf die (n + 1)te) Ausgabestelle vorgerückt. 


Als n darf ein arithmetischer Ausdruck geschrieben werden, dessen Wert zwischen 
® und 255 liegt. 


Beachten Sie, daß mit TAB nicht zurückgegangen werden kann. Die TAB-Anordnung wird 
ignoriert, wenn der Cursor schon hinter der angesprochenen Position steht. Außerdem müs- 
sen Sie bedenken, daß Sie z.B. mit TAB(1) auf die 2. Stelle der aktuellen Zeile positionie- 
ren. Diese Ungereimtheit liegt daran, daß rechnerintern die 1. Stelle die Adresse ®, die 

2. Stelle die Adresse 1 hat usw., so daß mit TAB {n) auf die nte Stelle bei interner Zählwei- 
se vorgerückt wird, und das ist die (n + 1)te Stelle bei der üblichen Zählweise. 


5.4 Aufgaben 


An dieser Stelle scheint ein grundsätzlicher Hinweis zur Bearbeitung der Aufgaben ange- 
bracht. 


Je weiter Sie sich die Sprache BASIC erarbeiten, desto unwahrscheinlicher wird es, daß 

Ihre Lösungen mit den angegebenen Musterlösungen identisch sind. Sie brauchen also einen 
anderen Weg, um Ihre Lösung überprüfen zu können. Benutzen Sie dafür den Rechner, wann 
immer das möglich ist! 

Auch wenn im Aufgabentext nicht ständig darauf hingewiesen wird, kann fast immer mit 
wenigen Zusatzbefehlen ein kleines Programm formuliert werden, das die aktuelle Aufgabe 
einschließt. Lassen Sie dieses Programm laufen, sehen Sie sich Zwischenergebnisse an, vari- 
ieren Sie die Ausgangswerte, und Sie werden bald erkennen, ob Sie die jeweilige Aufgabe 
gelöst haben. Schon die nachstehenden Aufgaben sollten Sie in diesem Stil bearbeiten. 


5-1 Wir nehmen an, daß auf den Variablen A und B Zahlen mit je max. 5 Ziffern stehen. 
Schreiben Sie eine Ausgabeanweisung, mit der der Wert von A ab Stelle 21 und der 
Wert von B in der gleichen Zeile ab Stelle 11 ausgegeben werden. 

5-2 Wie erreichen Sie mit getrennten Ausgabeanweisungen für A und B die gleiche Ausga- 
bezeile wie in Aufgabe 5-1? 
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5-3 


5-4 








Der Inhalt des Speicherplatzes G, hier durch xxx repräsentiert, soll in folgender Form 
ausgegeben werden: 

GEWICHT: xxxKG 
Schreiben Sie die Ausgabeanweisung hierfür so, daß vor und hinter xxx möglichst 
wenig Leerstellen auftreten. 
Wie erreichen Sie folgende Anordnung der Ausgabe? 

GEWICHT 

xx KG 


Dabei sollen vor Gewicht 3 Leerstellen erscheinen und für Werte von G zwischen 
10® und 999 soll KG unter HT stehen. 
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6 Eingabe 


Damit Sie Ihre Programme vielfach und vor allem unverändert verwenden können, müssen 
Sie diese weitgehend unter Benutzung von Variablen formulieren. Als Konstante sollten 
Sie nur Universalkonstanten, wie z.B. m, oder Systemkonstanten einprogrammieren. Dar- 
unter versteht man Zahlen, die für eine Problemklasse konstant sind, aber nicht das Einzel- 
problem beschreiben. So könnte man die 2 in der Kreisumfangsformel U = 2rR als System- 
konstante bezeichnen, während der Radius R natürlich den konkreten Kreis beschreibt. 
Die Kenngrößen des speziellen Problems müssen dem Rechner bekannt gemacht werden. 
Da Sie diese aber nicht als Konstanten einprogrammieren sollen, müssen Sie Eingabeanwei- 
sungen (INPUT, READ) für entsprechende Variablen schreiben. Die Zahlen werden dann 
während der Ausführung aus einer DATA-Zeile (READ) oder einer Bildschirmzeile (INPUT) 
entnommen. Dieses Zusammenspiel soll jetzt geübt werden. 
a) Löschen Sie den Programmspeicher und schreiben Sie 
2DATAA4, 5,6,7 
30READA, B: ?A;B, 
4BREADA: ?A 
Starten Sie das Programm. 
b) Ergänzen Sie 
1DATA3 
RUN 
Wenn Sie das Ergebnis registriert haben, starten Sie erneut mit 
GOTO3$ 
c) Falls die Übung b) nicht mit einer Fehlermeldung endete, haben Sie einen Fehler ge- 
macht. Wiederholen Sie b) ggf. in der vorgeschriebenen Form. Danach ergänzen Sie 
SÖRESTORE 
Geben Sie erneut 
RUN 
und nach dem Durchlauf erneut 
GOTO3$ 
d) Löschen Sie das alte Programm und schreiben Sie 
20INPUTS1, 52 
AB ?”’SUMME = *;51 +52 
RUN 
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Daraufhin erscheint ein Fragezeichen, mit dem Ihr cbm-Rechner Sie auffordert, Daten 
für eine INPUT-Anweisung einzugeben. Schreiben Sie 2 Zahlen, die Sie durch ein Kom- 
ma trennen müssen (z.B. 8,4) und betätigen Sie die RETURN-Taste. 


e) Fügen Sie zwischen INPUT und S1 folgende Zeichen ein: 
’SUMMANDEN“; 


Starten Sie das Programm. Jetzt wäre es vernünftig, wie bei d) eine Datenzeile mit 2 Zah- 
len aufzubauen. Versuchen Sie es statt dessen mit nur einer Zahl und der RETURN- 
Taste. 


Geben Sie noch eine Zahl ein, und es erscheint wieder die Summe beider Zahlen. 


f) Starten Sie das Programm erneut und drücken Sie nach dem Erscheinen des Fragezei- 
chens sofort die RETURN-Taste. 


g) Schreiben Sie 
18INPUT”EINHEIT“; E$ 


und ergänzen am Ende von Zeile 49 
;E8 

Starten Sie das Programm. Als aktuellen Wert für E$ können Sie z.B. die Zeichenfolge 
D-MARK 

wählen. Die Zahlen geben Sie am besten wie in Übung d) ein. 


6.1 Eingabe während des Programmlaufs 


Wir haben eingangs schon betont, daß problembezogene Daten über Eingabeanweisungen 

in das Programm einfließen sollten. Ein gängiges Prinzip ist, das Programm während der 
Programmausführung zu unterbrechen, wenn neue Daten benötigt werden, und diese Unter- 
brechung dem Benutzer anzuzeigen. Hier geschieht das mit einem Fragezeichen. Daraufhin 
gibt der Benutzer über den Bildschirm bzw. die Tastatur die Daten ein, und das Programm 
wird automatisch fortgesetzt. 


Diese Eingabeanweisung hat die Form 
INPUT Variablenliste bzw. 
INPUT ”Text‘; Variablenliste 


In der Liste stehen Variablennamen, die durch Kommas zu trennen sind. 


Besonders bei Programmen mit mehreren INPUT-Anweisungen empfiehlt sich die zweite 
Form. Bei ihr erscheint später als Zeichen der Programmunterbrechung der hinter INPUT 
gesetzte Text und dann das Fragezeichen. Dadurch wird es möglich, die verschiedenen Lese- 
befehle zu kennzeichnen oder gar dem Benutzer Hinweise für die Dateneingabe zu geben. 

In der Variablenliste dürfen beliebige Variablen stehen. Beim Aufbau der Datenzeilen ist je- 
doch zu beachten, daß die Daten zum jeweiligen Variablentyp passen, also z.B. kein String 
geschrieben wird, wenn in der Liste eine gewöhnliche Variable an der Reihe ist. 


Damit das Programm nach der Unterbrechung für eine INPUT-Anweisung fortgesetzt 
wird, müssen soviel Daten eingegeben werden, wie Variablen in der Liste stehen. 
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Die eingegebenen Daten werden der Reihe nach den Variablen der Variablenliste zu- 
geordnet. 


Die Daten für eine INPUT-Anweisung dürfen in eine Zeile geschrieben werden, müsser 
es aber nicht. 


Innerhalb einer Zeile werden Daten durch Kommas getrennt. 


Wie bereits erwähnt, zeigt der Rechner durch ein Fragezeichen an, daß er Daten für eine 
INPUT-Anweisung erwartet. Was geschieht aber, wenn Sie daraufhin nur die RETURN-Ta- 
ste betätigen? 


Die Eingabe einer leeren Datenzeile für eine INPUT-Anweisung führt zum Programm- 
abbruch. 


Beispiel: 

Wir wollen ein Programm schreiben, das das Volumen eines Ziegelsteines berechnet. Wenn 
wir die Kantenlängen mit L, B und H bezeichnen, erhalten wir das Volumen als V = L*B*H. 
Um möglichst flexibel zu bleiben, wollen wir alle Kantenlängen im Programm als Variable 
behandeln und deren Werte über einen Lesebefehl festlegen. Anschließend kann das Volu- 
men berechnet und ausgegeben werden. Schließlich bieten wir dem Benutzer noch die Mög- 
lichkeit, das Ergebnis mit einem beliebigen Text TE$ zu kennzeichnen. 


Bild 6.1 zeigt Ihnen, wie diese Aktionenfolge als Ablaufplan dargestellt wird. Übertragen wir 
diesen Plan in BASIC: 


1BINPUTL, B, H, TE$ 
20V = L*B*H 
30? TE$; V 


Eingabe: 
L,B,H,TES 


, Ausgabe: 
Bild 6.1 Quadervolumen TES;V 





Nachdem Sie dieses Programm gestartet haben, werden Sie aufgefordert, Daten einzugeben. 
Diese können Sie auf viele Arten anordnen. Zwei davon seien hier aufgeführt. 


Version 1: 

224.0,11.5,7.1, NORMALFORMAT RETURN-Taste 
Version 2: 

?24.0,11.5,7.1 RETURN-Taste 


??NORMALFORMAT RETURN-Taste 
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Die Eingabe der 4 genannten Größen hätten wir auch mit folgenden Anweisungen erreichen 
können: 

18 INPUT ”LAENGE“;L 

12 INPUT ”’BREITE‘;B 

14 INPUT ”HOEHE“;H 

16 INPUT ”TEXT‘;TES 


In diesem Fall spielt sich bei der Dateneingabe folgender Dialog ab: 


LAENGE? 28.5 RETURN-Taste 
BREITE? 13.5 RETURN-Taste 
HOEHE? 8.5 RETURN-Taste 


TEXT? KLOSTERFORMAT RETURN-Taste 


Zur Klarstellung sei noch einmal betont, daß die Zeileninhalte bis einschließlich der Frage- 
zeichen bei der Ausführung der INPUT-Anweisungen von Ihrem Rechner stammen, wäh- 
rend Sie den Rest der Zeilen schreiben. Dabei hätten Sie die Strings auch durch Anführungs- 
zeichen begrenzen dürfen. 


Sie werden es schon selber bemerkt haben, aber trotzdem sei darauf hingewiesen, daß unser 
Programm mehr kann, als in der Aufgabenstellung gefordert ist. Die Ursache liegt primär in 
dem notwendigen Abstraktionsprozeß, der bei komplexeren Problemen oft Kopfzerbrechen 
bereitet, hier jedoch kaum bewußt wurde: wir haben den Stein als Sonderfall eines Quaders 
erkannt. Durch die Verwendung allgemein gehaltener Texte und vor allem der Textvariab- 
len haben wir dann konsequent das durch die Abstraktion verallgemeinerte Problem „Qua- 
dervolumen‘‘ programmiert. U 


6.2 Eingabe vor dem Programmstart 


Die Dateneingabe über die INPUT-Anweisung wird unbefriedigend, wenn für einen Pro- 
grammdurchlauf relativ viele Eingabedaten erforderlich sind. Entdecken Sie nämlich einen 
Fehler in den Daten erst, nachdem die betreffende Datenzeile per RETURN-Taste an das 
Programm übergeben wurde, müssen Sie in der Regel das Programm neu starten und alle 
Daten neu eingeben. Um so etwas zu vermeiden, ist es oft besser, zuerst alle Daten zu schrei- 
ben, zu speichern, ggf. zu korrigieren und erst dann das Programm zu starten. Damit gehö- 
ren die in Ihrem cbm-Rechner gespeicherten Daten zwar formal zum Programm (s. Ab- 
schnitt 4.1), aber es macht weniger Mühe, korrekte Eingabewerte bereitzustellen. 

Derartige Programmzeilen, die Daten für einen Leseprozeß enthalten, werden durch das 
Kennwort DATA bezeichnet. 


Der Aufbau der DATA-Anweisung ist 
DATA Werteliste 


Die Daten in der Werteliste werden durch Kommas getrennt. 


Wenn die Daten von einer anderen Stelle gelesen werden sollen als bei INPUT, bedarf es na- 
türlich eines weiteren Eingabekommandos: READ. 
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Diese Eingabeanweisung hat die Form 
READ Variablenliste 


In der Liste stehen Variablennamen, die durch Kommas zu trennen sind. 


Beispiele für READ und DATA kennen Sie schon aus den Übungen a) bis c). Sehen Sie sich 
noch einmal an, wie das Zusammenspiel zwischen diesen beiden Anweisungsarten in Übung 
b) ablief. Zunächst erhielten A den Wert 3 und B den Wert 4. Ein READ versorgte sich also 
aus verschiedenen DATA-Anweisungen. Das anschließende READ A brachte A den Wert 5. 
Eine DATA-Anweisung konnte also abschnittsweise von verschiedenen READ-Anweisungen 
gelesen werden. Beim zweiten Durchlauf reichten dann die Daten nicht, so daß eine Fehler- 
meldung erfolgte. Diese Meldung wurde in Übung c) vermieden, aber hier brachte der zwei- 
te Durchlauf auch die gleichen Zahlen wie der erste. Lassen Sie uns diese Beobachtungen 
nun in Merkregeln umsetzen. 


Die Daten aus allen DATA-Anweisungen werden der Reihe nach den Variablen aus 
den ausgeführten READ-Anweisungen zugeordnet. 

Mit Hilfe eines sog. Pointers merkt sich der Rechner, wie weit die DATA-Anweisun- 
gen schon abgearbeitet wurden. 

Mit RESTORE wird der Pointer in seine Ausgangsstellung zurückgesetzt, also an den 
Anfang der ersten DATA-Anweisung. 


Es gibt keine bindende Vorschrift für die Anordnung der DATA-Zeilen innerhalb des Pro- 
gramms. Im Hinblick auf die Eigenarten des Lesens aus den DATA-Zeilen und deren be- 
queme Änderung sollte man diese totale Freizügigkeit jedoch nicht ausnutzen. Der Autor 
rät Ihnen statt dessen, alle DATA-Anweisungen an den Anfang des Programms zu setzen 
und hierfür fortlaufende Zeilennummern zu verwenden. 


6.3 Einzelzeichen-Eingabe 


Wer in der Programmierung wenig erfahren ist, sollte diesen Abschnitt übergehen. Der hier 
dargestellte Stoff ist erst von Nutzen, wenn Sie einen besonders aufwendigen Eingabedialog 
programmieren oder unkonventionelle Peripheriegeräte bedienen müssen. 

Mit GET steht ein Eingabe-Kommando zur Verfügung, mit dem bei jeder Ausführung ein 
Zeichen in den Rechner übernommen werden kann. 


Die Eingabe eines Zeichens von der Tastatur kann programmiert werden mit 

GET Variable 

Es darf eine gewöhnliche oder eine Stringvariable benutzt werden. 
Das Programm wird durch GET nicht unterbrochen, so daß es auch nicht wie bei INPUT 
nach der Dateneingabe mit der RETURN-Taste fortgesetzt werden muß. Falls das Programm 
bestimmte Zeichen erwartet, z.B. zur Ablaufsteuerung, müssen Sie daher eine Warteschleife 
vorsehen; denn anders ist kaum zu erreichen, daß der Benutzer den Zeitpunkt der Eingabe 
trifft. Eine Warteschleife sieht im Prinzip wie folgt aus: 


50 GETAS: IFA$="” “ THEN 59 
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In analoger Weise können einzelne Zeichen von einem Peripheriegerät geholt werden. Das 
Kommando lautet dann GET #k, Variable. Es setzt ein OPEN für die Kanalnummer k vor- 
aus (s. Kap. 8 und 9). 


6.4 Aufgaben 


6-1 


6-2 


6-3 


6-4 


Durch eine INPUT-Anweisung soll der Variablen T$ der 7stellige String ABC, DEF zu- 
gewiesen werden. Wie müssen Sie die Datenzeile schreiben? 

Benutzen Sie statt der INPUT- eine READ-Anweisung. Wo bzw. wie müssen Sie jetzt 
den String ABC, DEF schreiben? 

Wir betrachten das Beispiel aus Abschnitt 6.1 in der Version mit 4 INPUT-Anweisun- 
gen und nehmen an, bei der Ausführung des Programms sei auf TEXT? sofort mit der 
RETURN-Taste geantwortet worden. 

Wie reagiert der Rechner? 

Was müssen Sie tun, um den aktuellen Fall bearbeiten zu lassen, ohne noch einmal die 
Abmessungen eingeben zu müssen? 

Eine Ausgabezeile für die Werte von zwei Variablen können Sie alternativ mit einer 
PRINT- oder mit zwei PRINT-Anweisungen schreiben. Können Sie dementsprechend 
eine Datenzeile mit 2 Zahlen alternativ mit einem oder zwei Lesebefehlen lesen? 
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7 Verzweigungen 


In den bisherigen Übungen und Beispielen haben wir nur lineare Programme geschrieben: 
Bei jedem Durchlauf wurde jede Anweisung genau einmal ausgeführt. Von dieser Programm- 
struktur wollen wir nun abgehen. 


a) Schreiben Sie 
10 INPUT ’Z;Z:? 
2 IFZ<ÖTHEN?”REN“; 
36 ?’TIER“: GOTO 1® 
RUN 


Geben Sie im unregelmäßigen Wechsel positive und negative Zahlen ein und registrieren 
Sie den Zusammenhang zwischen Eingabe- und Ausgabewerten. 


b) Löschen Sie in Zeile 2® die zwischen der Zeilennummer und dem Fragezeichen (bzw. 
PRINT) stehenden Zeichen und lassen Sie das Programm mit den gleichen Zahlen wie in 
Übung a) laufen. (Falls keine Unterschiede auftreten, haben Sie nach dem Löschen wahr- 
scheinlich die RETURN-Taste vergessen. Lassen Sie sich die Zeile 29 zeigen und korri- 
gieren Sie sie wie vorgeschrieben.) 


c) Schreiben Sie 


30 ?A*B:GOTO1® 
16 INPUT”A,B“;A,B 
20 IFA=BOR B=$ THEN?”’NULL“: GOTO 19 


Lassen Sie auch dieses Programm laufen. Wählen Sie die einzugebenden Zahlenpaare so, 
daß gelegentlich, aber nicht immer eine Null vorkommt. 


d) Schreiben Sie 


19 S=$ 

26 Z=RND(TI):S=S+Z:?Z 
36 IFS<=7THEN GOTO 29 
40 ?’SUMME“‘;S 


Geben Sie mehrfach das RUN-Kommando und prüfen Sie jeweils, daß die Differenz der 
letzten beiden Zahlen die 7 noch nicht übersteigt. 


e) Löschen Sie in Zeile 39 das Kommandowort GOTO, so daß die Zeile auf THEN 29 en- 
det. Überzeugen Sie sich, daß das Programm genau so arbeitet wie bisher. Die ausgege- 
benen Zahlen wiederholen sich allerdings im allgemeinen nicht, weil wir in Zeile 29 ei- 
nen Zufallszahlengenerator (RND) benutzen. 
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f) Schreiben Sie 


18 INPUT”’Z';Z 
2B ON Z GOTO 49, 1ß, 30, 49 
30 2:?”A“:2: GOTO 19 
40 ?:?”’B:?:GOTO 1® 
Starten Sie das Programm, geben Sie in beliebiger Reihenfolge ca. 1 Zahlen zwischen 


® und 6 ein und registrieren Sie den Zusammenhang zwischen Ihrer Eingabe und der 
Ausgabe. 


7.1 Sprunganweisung 


Wir haben in früheren Beispielen gesehen, daß die Programmzeilen aufsteigend nach Zeilen- 
nummern sortiert und in dieser Reihenfolge abgearbeitet werden. Durch besondere Anwei- 
sungen, sog. Verzweigungen, kann jedoch von dieser ‚„natürlichen‘‘ Reihenfolge abgewichen 
werden. 

Die einfachste Verzweigung ist die Sprunganweisung, in der wir die Nummer der Zeile vor- 
geben, mit der die Programmausführung fortgesetzt werden soll 

Die allgemeine Form der Sprunganweisung ist 

GOTOn 

Darin bedeutet n die Nummer einer im Programm vorhandenen Zeile. 

Die Wirkung sahen Sie z.B. in Übung a). Nach jeder Ausgabe des Wortes TIER (Zeile 3) 
wurde von Ihnen die Eingabe einer Zahl gefordert (Zeile 19). 

Die Übungen d) und e) haben gezeigt, daß ein bedingter Sprung (s. Abschnitt 7.3) auch kür- 
zer codiert werden kann. 


In einer bedingten Sprunganweisung braucht statt THEN GOTO n nur THEN n 
geschrieben zu werden. 





Schon mit der einfachen GOTO-Anweisung können wir die lineare Struktur unserer bishe- 
rigen Programme aufweichen. Beispielsweise werden reine Berechnungsprogramme oft so 
eingesetzt, daß das Programm mehrfach unmittelbar nacheinander mit verschiedenen Daten 
ausgeführt wird. Dazu mußten wir bisher nach jedem Durchlauf das Programm neu starten. 
Das können wir sparen, wenn wir ans Programmende einen unbedingten Sprung zur ersten 
ausführbaren Anweisung setzen. 


Damit erhält das Programm die Struktur einer unendlichen Schleife, Solange bei jedem 
Durchlauf garantiert eine INPUT-Anweisung erreicht wird, ist das fehlende Ende aber kein 
Nachteil. Beim INPUT hält das Programm an, und der Benutzer entscheidet über Fort- 
setzung (Daten und RETURN-Taste) oder Abbruch (nur RETURN-Taste). 
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7.2 Berechneter Sprung 


Der einfache Sprung bewirkt die Fortsetzung des Programms an stets der gleichen Stelle. 

Die bedingte Sprunganweisung (s. Abschnitt 7.3) gestattet dagegen, eine Alternative zu 
programmieren: entweder wird gesprungen oder nicht. Daneben enthält das com-BASIC 
noch den berechneten Sprung, mit dem aus einer Menge von Zeilennummern eine ausge- 
wählt wird, um dort die Ausführung fortzusetzen. Sie kennen diese Anweisung aus Übung f). 
Dort wurde „B“ ausgegeben, wenn der ganzzahlige Teil der eingegebenen Zahl 1 oder 4 war. 
Bei 2 wurde sofort zum Lesebefehl verzweigt, und in den anderen Fällen wurde die Zeile 3® 
ausgeführt, d.h. bei, bei 3 und von 5 an aufwärts. 


Lassen Sie uns die Regeln für diesen Anweisungstyp zusammenstellen: 


Die allgemeine Form der berechneten Sprunganweisung ist 

ONaGOTO nl,n2,...,nk 

Darin sind n1 bis nk die Nummern im Programm vorhandener Zeilen und a ein nicht 
negativer arithmetischer Ausdruck. 


Wenn der ganzzahlige Teil von a 1 ist, wird zur Zeile nl verzweigt, ist er 2, wird bei Zeile n2 
fortgesetzt usw. Es wird nicht gesprungen, sondern die Ausführung in der nachfolgenden 
Zeile fortgesetzt, wenn der ganzzahlige Teil von a ® oder größer als k ist. 


7.3 Bedingte Anweisung 


In den Übungen, z.B. in Übung a), haben Sie erlebt, daß eine Anweisung (PRINT REN“) 
gelegentlich nicht ausgeführt wurde. Sie war als bedingte Anweisung codiert und wurde nur 
erreicht, wenn Sie eine negative Zahl Z eingegeben hatten. In Übung b) wurde hingegen je- 
desmal REN geschrieben, so daß die Bedingung offenbar durch den Teil der Zeile 2® aus- 
gedrückt war, den Sie in Übung b) gelöscht haben. 

Was hier am Beispiel einer Ausgabeanweisung demonstriert wurde, ist durchweg erlaubt. 
Die Ausführung jeder Anweisung (Ausnahme: FOR, s. Kap. 11) kann vom Vorliegen be- 
stimmter Bedingungen abhängig gemacht werden. 


Die allgemeine Form der bedingten Anweisung ist 
IF Bedingung THEN Anweisung 


Wenn die Bedingung verletzt ist, wird die hinter THEN stehende Anweisung, der sog. Ja- 
Ast, ignoriert und sofort die nachfolgende Zeile abgearbeitet. Ist die Bedingung erfüllt, wird 
der Ja-Ast ausgeführt. Dieser darf mehrere durch Doppelpunkt getrennte Anweisungen ent- 
halten, die entweder alle ignoriert oder alle ausgeführt werden. Endet der Ja-Ast nicht mit 
einer Sprunganweisung, wird anschließend die nachfolgende Zeile abgearbeitet. 


Bedingungen werden oft als Vergleich geschrieben. 


Ein Vergleich besteht aus 2 arithmetischen Ausdrücken oder 2 Strings, den Operan- 
den, und einem Vergleichsoperator. 
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Wenn al und a2 Operanden des gleichen Typs bezeichnen, sind folgende Vergleiche 


möglich: 

BASIC Bedeutung 
al<a2 al kleiner als a2 
al=-a2 al gleich a2 
al>a2 al größer als a2 


al>=22 al größer oder gleich a2 
al<>22 al ungleich a2 
al<=a2 al kleiner oder gleich a2 


Strings werden von vorne her zeichenweise verglichen, bis 2 unterschiedliche Zeichen auf- 
treten. Auf der Basis des zur internen Zeichendarstellung verwendeten Codes (ASCI: 
American Standard Code for Information Interchange) ergibt sich die Größenrelation zwi- 
schen den Zeichen. Diese stimmt überein mit der üblichen lexikografischen Anordnung, 
wobei die Ziffern noch vor den Buchstaben rangieren. Falls ein String mit dem Anfang ei- 
nes anderen völlig übereinstimmt, gilt der kürzere als kleiner. 

Für den Bereich numerischer Vergleiche sind mit der obigen Regel auch Bedingungen wie 
in Übung a) oder d) erfaßt; denn ein arithmetischer Ausdruck (vgl. Abschnitt 3.4) kann bis 
auf eine Konstante oder eine Variable abmagern. Es geht aber auch komplizierter, wie 
Übung c) zeigt. 


Wenn b1 und b2 zulässige Bedingungen (z.B. Vergleiche) bezeichnen, dürfen folgende 
Bedingungen formuliert werden: 


BASIC Bedeutung 
NOT bI Negation von b1 
bi AND 2 b1 und b2 
bl OR b2 b1 oder b2 


Da „kleiner oder gleich‘ das Gegenteil (die Negation) von „größer“ ist, sind z.B. folgende 
Bedingungen gleichwertig: 


al<=2 entspricht NOTal>.a2 


Für den Gebrauch von AND und OR sei daran erinnert, daß eine mit „und“ gebildete Ge- 
samtbedingung b1 und b2 erfüllt ist, wenn beide Einzelbedingungen erfüllt sind. Bei „oder“ 
hingegen ist die Gesamtbedingung b1 oder b2 erfüllt, wenn mindestens eine Einzelbedin- 
gung erfüllt ist. So wurde in Übung c) das Wort NULL geschrieben, wenn Sie eine oder zwei 
Nullen eingegeben hatten. 


Eine Erläuterung der Aussagenlogik kann hier nicht erfolgen, weil sie zu weit vom Thema 
dieses Buches wegführt. Wer programmieren will, sollte die Regeln der formalen Logik je- 
doch kennen und über die obigen Andeutungen hinaus z.B. in der Lage sein, zusammenge- 
setzte Aussagen (Bedingungen) zu negieren. Wenn Sie auf diesem Gebiet Wissenslücken 
spüren, sollten Sie sie, vielleicht mit Hilfe der einschlägigen Literatur, beizeiten beseitigen. 
Nachdem wir in diesem Kapitel weitere Operatoren kennengelernt haben, müssen wir noch 
einmal die Frage ihrer Priorität aufgreifen. Wie bei den arithmetischen Operatoren kann 
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auch hier durch Paare runder Klammern vorgeschrieben werden, in welcher Reihenfolge 
die in einem Ausdruck auftretenden Operatoren abgearbeitet werden sollen. Soweit davon 
kein Gebrauch gemacht wird, gilt folgende 


Rangordnung der Operatoren: 


Rang Operator 
1 t 
* 
+ 
Vergleichsoperatoren 
NOT 
AND 
OR 


SINN PWwN 


Beispiel: 

Ein zentrales Problem der Programmierung ist die Berechnung von Summen mit variabler 
Anzahl von Summanden. Den prinzipiellen Lösungsweg hierfür wollen wir am nachstehen- 
den Problem aufzeigen. 

Der Rechner kann Zufallszahlen erzeugen, die zwischen ® und 1 liegen. Wir wollen diese 
Zahlen solange aufaddieren, bis die Summe den Wert 7 übersteigt, und uns zur Kontrolle 
die Zahlen und ihre Summe ausgeben lassen. Da die Anzahl der Summanden nicht bekannt 
ist, können wir keine Additionsanweisung mit entsprechender Anzahl von „+‘-Zeichen 
formulieren. Wir müssen stattdessen mit einer Zeile der Form 


5S=5+Z 


nur eine Zufallszahl Z verarbeiten und diese Anweisung mit jeweils neuem Z so oft aus- 
führen wie nötig. Bei dieser Technik hat 5 die Bedeutung ‚„Teilsumme der bislang addierten 


a) b) 








Z = Zufallszahl 
S=$+Z 






Ausgabe: 
Z 


6 


Bild 7.1 Summe von Zufaliszahlen 













Ausgabe: 
”Summe=‘4$ 
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Zahlen‘. Nach jedem Durchlauf ändert sich der Wert von S, so daß eine Folge von Teilsum- 
men entsteht. Wir brechen die Berechnung ab, wenn der richtige Summenwert erreicht ist 
(s. Bild 7.1, Version a). 
Die Summe ist natürlich nur korrekt, wenn vor der Verarbeitung der ersten Zufallszahl S 
den Wert ® hat. Außerdem sollten die Zahlen und ihre Summe ausgegeben werden, so daß 
sich der Plan aus Bild 7.1, Version b, ergibt. Eine Übertragung dieses Ablaufplans in ein 
BASIC-Programm erübrigt sich, da Sie das Programm in Übung d) schon geschrieben haben. 
© 


7.4 Aufgaben 


7-1 Das Minimum a,, der Zahlen a,, a,,... , a, ist charakterisiert durch 
Am Sa,i=1,2,...n 


Schreiben Sie ein Programm, das aus 3 einzulesenden Zahlen das Minimum Am be- 
stimmt und ausgibt. Verwenden Sie keine indizierten Variablen. 


7-2 Schreiben Sie ein Programm, das bei beliebiger Anzahl n das Minimum von ,%,..., 
a, ermittelt und ausgibt. Lesen Sie als erstes die Anzahl n. Verwenden Sie keine indi- 
zierten Variablen. 


7-3 In einem Lager befinden sich n verschiedene Artikel. Vom i-ten Artikel sind a; Stück 
vorhanden, und der Preis für ein solches Stück ist P;. Schreiben Sie ein Programm, das 
für den gesamten Lagerbestand den durchschnittlichen Stückpreis DP ermittelt. Die 
Formel dafür lautet 





Bauen Sie das Programm so auf, daß die Preise (langfristig konstant) über READ/DATA- 
Anweisungen und die Stückzahlen (täglich veränderlich) über INPUT-Anweisungen ge- 
lesen werden. Verwenden Sie keine indizierten Variablen. 
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8 Benutzung des Recorders 


Das Kassettenlaufwerk bietet die Möglichkeit, Programme auf gewöhnlichen Kassetten zu 
archivieren. Legen Sie eine leere Kassette ein und lassen Sie uns das Speichern und Laden 
von Programmen üben. 


a) Betätigen Sie am Recorder die Rücklauftaste (REW). Während die Kassette zurückgespult 
wird, erstellen Sie ein einfaches Programm: 


18 INPUT "BASIS, EXPONENT“;B,E 
20 ?BtE: GOTO 19 


b) Wenn die Kassette zurückgespult ist, lösen Sie die REW-Taste und schreiben 
SAVE ”POTENZ“ 


Daraufhin werden Sie aufgefordert, am Recorder die Tasten REC und PLAY gleichzei- 
tig zu drücken. Tun Sie es, und beachten Sie den Bildschirm. 


c) Nachdem das Speichern beendet ist (Anzeige READY) lösen Sie die Tasten REC und 
PLAY (mit der STOP-Taste des Recorders) und erstellen ein zweites Programm: 


16 INPUT ”FAKTOR 1, FAKTOR 2“; A,B 
29 ?A*B: GOTO 19 

Speichern Sie auch dieses Programm: 
SAVE "’PRODUKT“ 


Nach Beendigung dieses Vorganges löschen wir den Programmspeicher und kontrollie- 
ren den Löscherfolg: 

NEW 

LIST 


d) Nun spulen Sie die Kassette zurück (Taste REW am Recorder), lösen anschließend die 
REW-Taste und schreiben dann 


LOAD ”’PRODUKT“ 


Wenn nicht nach spätestens 5 Minuten der Ladevorgang abgeschlossen ist, brechen Sie 
ihn ab (Tasten STOP am Rechner und STOP am Recorder). In diesem Fall wiederholen 
Sie den Punkt d), und falls das Laden wieder mißlingt, beginnen Sie noch einmal bei 
Punkt a) und halten sich genau an den vorgeschriebenen Übungsplan. 


Ist das Programm geladen, überprüfen Sie den Erfolg mit 
LIST 
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e) Jetzt soll das andere Programm geladen werden. Überlegen Sie, was dafür zu tun ist. 
Sind Sie auch auf die nachstehende Aktionenfolge gekommen? 


Kassette zurückspulen, REW-Taste lösen, LOAD ”POTENZ“ schreiben. 
Wenn das Programm "POTENZ geladen ist, lösen Sie die PLAY-Taste. 


f} Schreiben Sie 
15?2”BHOCHE =“; 


Dieses modifizierte Programm soll jetzt zusätzlich zu den beiden anderen gespeichert 
werden. Deshalb muß zunächst die Kassette bis ans Ende des Programms PRODUKT“ 
vorgesetzt werden. Dazu schreiben Sie 


VERIFY 
Nach Aufforderung drücken Sie die PLAY-Taste und warten, bis die Meldungen 


FOUND PRODUKT 
VERIFYING 
VERIFY ERROR 
READY 


erscheinen. Lösen Sie die PLAY-Taste. Versuchen Sie, in Anlehnung an die Übung c) 
das im Speicher befindliche Programm unter dem Namen "POT 2‘ auf die Kassette zu 
bringen. 


8.1 Speichern von Programmen 


Der cbm-Rechner betrachtet alle in seinem Programmspeicher stehenden Zeilen als ein Pro- 
gramm. Weil daher zu jeder Zeit nur ein Programm bekannt ist, ist ein Programmname zur 
Unterscheidung von Programmen nicht nötig. Auch wenn wir Programme auf Kassetten 
speichern, sind Namen nicht erforderlich, selbst dann nicht, wenn mehrere Programme auf 
einer Kassette stehen. Im Hinblick auf den effektiveren Gebrauch werden wir gespeicherte 
Programme jedoch grundsätzlich mit Namen versehen. Sie sollten die Namen aber mög- 
lichst kurz wählen, damit bei einer Bezugnahme der Schreibaufwand und vor allem das 
Fehlerrisiko klein bleiben. 


Um Schwierigkeiten beim späteren L.aden der Programme zu vermeiden, sollten Sie keine 
Namen verwenden, die komplett mit dem Anfang eines anderen Namens übereinstimmen. 
Z.B. sind die Namen RUND und RUNDUNG ungünstig, während UND mit jedem der an- 
deren beiden Namen verträglich ist. 

Ein Programm wird auf Kassette gespeichert mit SAVE ”NAME“ 

Der Name wird auf 16 Zeichen beschränkt. 


Nach dem SAVE-Kommando werden Sie aufgefordert, die Tasten REC und PLAY am 
Recorder zu drücken. Das muß gleichzeitig erfolgen, und beide Tasten müssen einrasten. 
Voraussetzung für den Erfolg ist, daß bei der Eingabe des SAVE-Kommandos keine der 
Recorder-Tasten REW, FFWD oder PLAY eingelegt ist, weil der Rechner sonst einen fal- 
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schen Betriebszustand des Recorders unterstellt. Wir wollen betonen, daß das Programm 
auch nach dem Speichern, dessen Abschluß durch READY angezeigt wird, im Speicher 
des Rechners vorhanden ist. 


Wenn Sie das SAVE-Kommando gegeben und die geforderten Tasten eingelegt haben, wird 
die Kassette von der momentanen Position des Schreibkopfes an beschrieben. Das stört 
nicht, solange Sie stets pro Kassette nur ein Programm aufnehmen und die Kassette vor 
dem SAVE-Kommando zurückspulen. Es ist jedoch denkbar, daß Ihnen bei fleißiger Pro- 
grammierung die große Anzahl von Kassetten bald lästig wird. 


Wollen Sie mehrere Programme pro Kassette speichern, müssen Sie in der Lage sein, vor ei- 
nem anstehenden SAVE-Kommando die Kassette bis hinter das letzte darauf befindliche 
Programm vorzusetzen. Dafür existiert aber kein Spezialbefehl. Man kann jedoch den ge- 
wünschten Effekt mit dem VERIFY-Kommando erreichen. 


Mit VERIFY veranlassen Sie, daß das nächste auf der Kassette gefundene und das im 
Rechner gespeicherte Programm auf völlige Übereinstimmung geprüft werden. 


Das Kommando heißt VERIFY. 


Sie werden nach dem Kommando aufgefordert, die PLAY-Taste des Recorders zu drücken. 
Gewöhnen Sie sich an, diese nach erfolgter Prüfung wieder zu lösen; denn sonst wird Ihnen 
ein geplantes SAVE mißlingen. 


Ob die Prüfung Übereinstimmung ergab oder nicht, in jedem Fall ist die Kassette bis hinter 
das Programmende vorgesetzt worden. Wenn sich auf der Kassette ein weiteres Programm 
anschließt, wiederholen Sie das VERIFY-Kommando und gelangen damit an das Ende die- 
ses Programms. Auf diese Weise können Sie die Kassette bis hinter das letzte darauf befind- 
liche Programm vorsetzen und das neue Programm dahinter abspeichern. Sie müssen aller- 
dings bei jedem VERIFY genau wissen, ob noch ein Programm folgt; denn sonst läuft die 
Kassette bis zum Ende durch, und Sie können das aktuelle Programm nicht mehr speichern. 


8.2 Laden von Programmen 


Ein auf Kassette gespeichertes Programm können Sie in den Programmspeicher Ihres cbm- 
Rechners laden. 


Das Ladekommando heißt 
LOAD ’Name‘“ bzw. nur LOAD 


Sie werden aufgefordert, am Recorder die PLAY-Taste zu drücken. Haben Sie nur LOAD 
gesagt, wird das erste gefundene Programm genommen. Falls Sie einen Namen angegeben 
haben, wird die Kassette vorwärts bis zum fraglichen Programm gelesen und dieses geladen. 
Der Suchprozeß wird als erfolgreich angesehen, sobald der Anfang des gespeicherten Na- 
mens und der im LOAD genannte Name identisch sind. Wenn der gespeicherte Name länger 
ist, werden die hinteren Zeichen ignoriert. 

Oft werden Sie das soeben geladene Programm ausführen lassen wollen und deshalb mit 
dem RUN-Kommando fortsetzen. Für diesen Fall können Sie Ihren Schreibaufwand mitun- 
ter reduzieren, wenn Sie die RUN-Taste betätigen, die das LOAD- und RUN-Kommando 
zusammenfaßt. 
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Mit der RUN-Taste wird das erste auf der Kassette gefundene Programm geladen und 
gestartet. 


Natürlich werden Sie auch hier aufgefordert, die PLAY-Taste zu drücken. 


8.3 Bearbeitung von Datenbeständen 


Kassetten eignen sich grundsätzlich auch zur Aufnahme von Datenbeständen. Das Ausgabe- 
kommando PRINT kann so modifiziert werden, daß die Ausgabezeile nicht zum Bildschirm 
sondern zum Recorder geschickt und dort gespeichert wird. Entsprechend läßt sich auch 
mit einem abgewandelten INPUT eine Datenzeile vom Recorder holen. 


, 


Bei praktischen Anwendungen geht es jedoch kaum um die Bearbeitung weniger Datenzei- 
len, sondern es sind größere Datenmengen zu speichern bzw. zu lesen. Dabei macht sich die 
geringe Arbeitsgeschwindigkeit des Recorders störend bemerkbar. Wer die Möglichkeit hat, 
sollte deshalb seine Datenbestände auf Disketten führen und diesen Abschnitt übergehen. 
Wollen Sie von einem Programm zu einem Datenbestand auf einer Kassette zugreifen (lesen 
oder schreiben), müssen Sie zuerst einen Übertragungskanal zwischen Rechner und Recor- 
der einrichten. 


Ein Übertragungskanal zum Recorder wird festgelegt mit 

OPEN k, 1,5 Name“ 

Die Kanalnummer k muß zwischen 1 und 255 liegen. 

Für die Sekundäradresse s sind zulässig 

® Eingabedatei 

1 Ausgabedatei 

2 Ausgabedatei, nach Abschluß der Datei wird eine Bandendemarke (EOT) gesetzt. 
Der Name wird auf 16 Zeichen beschränkt. 


Beispiel: 
25 OPEN 5, 1, 2, "TESTDATEN“ © 


Die OPEN-Anweisung muß ausgeführt werden, bevor in einer PRINT- bzw. INPUT-Anwei- 
sung auf den Kanal Bezug genommen wird. Je nach Übertragungsrichtung werden Sie auf- 
gefordert, die Tasten REC und PLAY (Ausgabekanal) oder nur PLAY (Eingabekanal) zu. 
drücken. Im Falle der Ausgabe wird danach sofort, ähnlich wie beim SAVE, eine Dateian- 
fangs-Information auf die Kassette geschrieben, so daß Sie diese unbedingt vorher richtig 
positionieren müssen. Beim Lesen wird analog zum LOAD verfahren und die Kassette vor- 
wärts abgesucht, bis die Datei mit dem im OPEN genannten Namen gefunden wird. 

Im Gegensatz zur Ausgabe auf den Bildschirm ist die Fragezeichen-Konvention hier nicht 
anwendbar. 


Die Ausgabeanweisung für den Recorder lautet 
PRINT #k, Liste 
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Beispiel: 

50 PRINT#5, A, B$ ® 
Die im PRINT angezogene Kanalnummer k muß natürlich auf einen Ausgabekanal verwei- 
sen (im OPEN s = 1 oder s= 2). Für die Liste gelten die gleichen Regeln wie in der gewöhn- 
lichen PRINT-Anweisung. 


Am Ende eines Programmes mit Ausgabe auf den Recorder sollten Sie den Ausgabekanal 
ordnungsgemäß schließen. 


Ein Kanal wird geschlossen mit 
CLOSE k 


Mit einem solchen CLOSE kann auch ein Eingabekanal geschlossen werden, wenn er nicht 
mehr benötigt wird. 





Sehen wir uns nun an, wie von einer Kassette gelesen wird. 


Die Eingabeanweisung für den Recorder lautet 
INPUT #k, Variablenliste. 


Dabei ist mit k die Nummer eines Eingabekanals (im Open s = ß) gemeint. Die Variablen- 
liste wird nach den gleichen Regeln aufgebaut wie bei der gewöhnlichen INPUT-Anweisung 
und muß vor allem genau wie dort auf die Struktur der Datensätze abgestimmt sein. 

Wenn Sie vom Bildschirm eine Zeile mit mehreren Daten lesen wollen, müssen Sie die Da- 
ten durch Kommas trennen und eine INPUT-Anweisung mit entsprechend vielen Variablen 
ausführen (s. Kapitel 6). Auch mehrere Daten in einem Recorder-Datensatz müssen durch 
Kommas getrennt sein, wenn sie beim Lesen als getrennte Informationen erkannt werden 
sollen. Also müssen diese Kommas beim voraufgegangenen Schreiben der Datensätze mit 
ausgegeben werden, z.B. als String” , “. 


8.4 Aufgaben 


8-1 Im Recorder möge sich eine Kassette mit einem Programm befinden. Was müssen Sie 
tun, um den Namen des Programms zu erfahren? 


8-2 Aufeiner Kassette sollen schon die Programme AKT, ART und AST stehen. Sie wol- 
len ein viertes Programm dahinter speichern. Welche Namen sind dafür ungeeignet? 
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9 Benutzung der floppy-disk 


In diesem Abschnitt wollen wir den Umgang mit der floppy-disk kennenlernen. Wir unter- 
stellen, daß das Verbindungskabel zwischen Rechner und floppy-disk installiert ist und 
beide Geräte eingeschaltet sind. 

Bei den Übungen können Fehlerbedingungen eintreten, die die floppy-disk oder den Rech- 
ner blockieren. Halten Sie sich deshalb möglichst exakt an die vorgeschriebenen Anweisun- 
gen und beobachten Sie die zwischen den Laufwerken liegende Fehleranzeige der floppy- 
disk. Wenn diese aufleuchtet, müssen Sie die floppy-disk aus- und wieder einschalten und 
alle Experimente dieses Abschnittes wiederholen. Wenn gleichzeitig der Cursor fehlt, bestä- 
tigen Sie die STOP-Taste des Rechners. Falls das nicht hilft, müssen Sie auch den Rechner 
aus- und wieder einschalten. 

Für die Experimente benötigen Sie eine unbespielte Diskette. Sie können auch eine gebrauch- 
te Diskette benutzen, müssen aber bedenken, daß alle darauf gespeicherten Informationen 
zerstört werden. Legen Sie die Diskette in das von vorn gesehen rechte Laufwerk (Lauf- 
werk $), schließen Sie die Klappe und geben Sie die Anweisungen für die Aufbereitung der 
Diskette. Dabei werden gespeicherte Informationen gelöscht. 


a) Schreiben Sie 
OPEN 1, 8, 15 
PRINT #1, ”N®: TEST,D1“ 
Die Laufwerkskontrolleuchte wird nach 1 bis 2 Minuten verlöschen. Danach schreiben 
Sie 
19?”FLOPPY-TEST“ 
SAVE”H:PRI“,8 
b) Nachdem das Laufwerk wieder steht, schreiben Sie 
LOAD”’SH", 8 
LIST 


Kann Ihr Programm noch irgendwo im Programmspeicher stehen? Falls Sie unsicher 
sind, sehen Sie sich die Bedeutung des LIST-Kommandos noch einmal an. 


c) Schreiben Sie jetzt 


LOAD”B:PR1",8 
RUN 
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d) Setzen Sie fort mit 


SAVE”9:P“,8 
OPEN 1, 8,15 
PRINT #1,”CP:R = B:PR1“ 


e) Jetzt wollen wir feststellen, was diese Kommandos bewirkt haben. Lassen Sie sich das 
inhaltsverzeichnis der Diskette zeigen. 


Falls Sie nicht von selbst darauf gekommen sind: Sie müssen die Zeilen aus Übung b) 
schreiben. 


f) jetzt sollen die gespeicherten Programme der Reihe nach gezeigt werden: 


LOAD ’’B:PR1‘,8 
LIST 

LOAD "9: P“, 8 
LIST 

LOAD ”B:R“, 8 
LIST 


Sie sehen, daß die Programme übereinstimmen. 


g) Schreiben Sie jetzt 


OPEN 1,8, 15 

PRINT #1,“RP:Z = B:PR1“ 
PRINT #1, ”Sp:P“ 

LOAD "89" ,8 

LIST 


9,1 Allgemeine Hinweise 


Auf den Disketten können, wie schon auf den Kassetten, Programme und Daten gespeichert 
werden. Die beiden Speichermedien unterscheiden sich aber in ihrer Organisationsform. Auf 
Disketten wird ein Inhaltsverzeichnis mit den Namen der gespeicherten Dateien (Program- 
me oder Datenbestände) geführt, wo auch die jeweilige Lage der Datei vermerkt ist. Deshalb 
muß jede Diskettendatei einen Namen tragen. 


Ein weiterer Unterschied zur Kassette besteht darin, daß Disketten vom Benutzer einen Na- 
men und eine Identifikation erhalten. Bevor mit einer in ein Laufwerk eingelegten Diskette 
gearbeitet werden kann, muß der floppy-disk das Kommando gegeben werden, die Dis- 
ketten-Identifikation zu lesen und zu speichern. Greift man danach vom Rechner her auf 
die Diskette zu, werden die dort befindliche und die gespeicherte Identifikation automa- 
tisch verglichen. Bei einem Unterschied werden der Zugriff unterbunden und eine Fehler- 
bedingung angezeigt, so daß ein gewisser Schutz gegen das Vertauschen von Disketten be- 
steht. 

Im Gegensatz zu den Kassetten bedürfen neue Disketten einer Aufbereitung (Vorbereitung 
des Inhaltsverzeichnisses, Aufbringung des Namens und der Identifikation), bevor sie be- 
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nutzt werden können. Auch hierfür gibt man der floppy-disk ein entsprechendes Komman- 
do. Beachten Sie, daß die floppy-disk nicht prüft, ob die Diskette unbespielt ist. Eventuell 
vorhandene Dateien werden bei dieser Aufbereitung (N-Kommando) zerstört. 
Wollen Sie der floppy-disk eines der erwähnten oder der noch folgenden Kommandos ge- 
ben, muß ein Kommandokanal eröffnet sein. 

Der Kommandokanal für die floppy-disk wird festgelegt durch die Anweisung 

OPEN k, 8, 15 

Die Kanalnummer k muß zwischen 1 und 255 liegen. 


Beispiel: 
OPEN 1,8, 15 0) 


Die 8 ist die standardmäßig festgelegte Gerätekennzahl für die floppy-disk, während die 15 
den Kanal als Kommandokanal charakterisiert. Wenn Sie dieses OPEN geben und für die 
gewählte Nummer schon ein Kanal eröffnet ist, antwortet der Rechner mit 


FILE-OPEN-ERROR 


In diesem Fall müssen Sie das OPEN (unverändert) wiederholen. 
Nachdem der Kommandokanal eröffnet ist, geben Sie die gewünschten Kommandos mit 
PRINT-Anweisungen, in denen Sie auf die Kanalnummer k verweisen. Außerdem legen Sie 
gewöhnlich das Laufwerk ® oder 1 fest, hier durch m bezeichnet. 

Das Kommando für die grundlegende Aufbereitung einer Diskette lautet 

PRINT #k, ’Nm:Name, i“ 

Als Disketten-Name sind max. 16 Zeichen zugelassen außer * ?=;, 

Die Disketten-Identifikation i besteht aus 2 Zeichen. 
Beispiel: 

PRINT #1, ’N:BIBLI, PB“ 
Wir weisen noch einmal darauf hin, daß durch dieses N-Kommando alle auf der fraglichen 
Diskette (hier derjenigen in Laufwerk ®) befindlichen Dateien zerstört werden. Überlegen 
Sie daher jedesmal, ob Sie wirklich das N-Kommando geben müssen, oder ob das I-Komman- 


do angebracht ist, mit dem die vorhandene Disketten-Identifikation in die floppy-disk über- 
nommen wird. 


Das I-Kommando hat die Form 


PRINT #k, ”I“ 
oder 
PRINT #k, ”Im“ 
Beispiel: 
PRINT #1, ”I9“ . 


Wenn Sie noch einmal zur Übung a) zurückgehen, werden Sie das I-Kommando vermissen, 
auf das wir ausnahmsweise verzichten durften, weil die Identifikation wegen des unmittel- 
bar vorangegangenen N-Kommandos schon bekannt war. 
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9.2 Programmarchivierung 


Beim Speichern von Programmen auf einer Kassette mußten Sie dagegen vorsorgen, verse- 
hentlich ein anderes Programm zu überspeichern und damit zu zerstören. Daher mußten Sie 
in der Regel genau wissen, wie weit die Kassette belegt war, und sie vor dem Speichern des 
neuen Programmes bis dahin vorlaufen lassen. Dergleichen ist hier nicht nötig. 


Das Kommando zur Speicherung eines Programms auf einer Diskette lautet 
SAVE "m:Name“, 8 

Das Kommando zum Laden eines Programmes von einer Diskette lautet 
LOAD ’"’m:Name“,8 


Als Programmname sind 16 Zeichen zugelassen außer * ?=;, 
Mit m ist die Nummer des Laufwerks gemeint. 


Das Speichern bzw. Laden gelingt, oder Sie werden durch die Fehleranzeige an der floppy- 
disk auf eine Fehlerbedingung hingewiesen. Wie in Abschnitt 9.4 erläutert, können Sie den 
Fehler erkennen und beheben und dann erfolgreich speichern bzw. laden. 


Einen Überblick über den momentanen Füllstand einer Diskette können Sie sich durch die 
Auflistung des Inhaltsverzeichnisses verschaffen. Dieses enthält neben den Dateinamen auch 
einen Hinweis, ob es sich um ein Programm (PRG) oder einen sequentiellen Datenbestand 
(SEO) handelt. 


Das Inhaltsverzeichnis der in Laufwerk m befindlichen Diskette wird mit 
LOAD ”$m“,8 

in den Rechner übernommen und nach der READY-Meldung angezeigt mit 
LIST 


Die Entwicklung eines Programmes vollzieht sich normalerweise in mehreren Schritten. Ver- 
gleichbar einer Ahnenkette entstehen im Laufe der Zeit verschiedene Programme, von denen 
die neueren i.a. besser sind. Sie haben von vornherein einen größeren Leistungsumfang, 
oder sie enthalten weniger Fehler. Es ist üblich und dringend anzuraten, niemals nur die 
neueste Version zu speichern, sondern mindestens auch den unmittelbaren Vorgänger. Bei 
besonders bedeutsamen Programmen hebt man auch weitere Glieder der Ahnenkette auf. 
Hier empfiehlt es sich, die Namensvergabe zu systematisieren, damit man allein anhand der 
Namen jüngere und ältere Programme unterscheiden kann. Das können Sie durch einen Ge- 
nerationenzähler erreichen, den Sie neben einem aufgabenbezogenen Teil im Namen mit- 
führen, wie z.B. in der Kette TESTPRG 1, TESTPRG 2, TESTPRG 3 usw. Stattdessen kön- 
nen Sie auch die Namen beibehalten und den Inhalt der Dateien aktualisieren. Falls Sie je- 
weils einen Vorgänger aufheben, sind dann statt des einfachen Speicherns sinngemäß folgen- 
de Anordnungen zu geben: 


Lösche TESTPRGALT. 
Benenne TESTPRG um in TESTPRGALT. 
Speichere aktuelles Programm als TESTPRG. 


Das Löschen und Umbenennen von Dateien wie auch das außerdem mögliche Kopieren er- 
reichen Sie mit folgenden Kommandos, die Sie der floppy-disk über einen zuvor eröffneten 
Kommandokanal erteilen. 
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Eine Datei wird gelöscht mit 
PRINT #k, ”’Sm:Name“ 


Beispiel: 

PRINT #1, ’S:TESTPRGALT“ o 
| Eine Datei wird umbenannt mit 

PRINT #k, ”"Rm;Name neu = m: Name alt“ 
Beispiel: 

PRINT #1, ’RO:TESTPRGALT = $: TESTPRG“ o 


Danach würde der Name TESTPRG nicht mehr im Inhaltsverzeichnis geführt und dürfte im 
SAVE-Kommando erneut verwendet werden. 


Eine Datei wird kopiert mit 
PRINT #k, ”"Cm:Name neu = n:Name alt‘‘ 


Beispiel: 
PRINT #1, ’C1:PRG = $: TESTPRG“ © 


Bei diesen Kommandos bedeutet k wieder den Kommandokanal. Mit m und n sind Lauf- 
werksnummern gemeint, die beim C-Kommando auch gleich sein dürfen. 


9.3 Sequentielle Dateien 


Hier erörtern wir den Umgang mit Datenbeständen, deren Datensätze nur der Reihe nach 
verarbeitet werden. Zur Erstellung einer solchen Datei benutzt man PRINT-Anweisungen, 
die sich von der gewöhnlichen durch den Verweis auf einen Ausgabekanal unterscheiden. 


Ein Ausgabekanal für die floppy-disk wird eröffnet mit 

OPEN k, 8, s, ”’m:Name, SEQ, WRITE“ 

Die Kanalnummer muß zwischen 1 und 255 liegen. 

Als Sekundäradresse s ist eine Zahl zwischen 2 und 14 erlaubt. 
Vor die Laufwerksangabe m (ß oder 1) darf ein (® gesetzt werden. 
Der Name der Datei darf bis zu 16 Zeichen enthalten außer * ?=; 


Beispiel: 
10 OPEN 4, 8, 4,”(a 1:TESTDATEN, SEQ, WRITE“ o 


Wenn im OPEN für einen Ausgabekanal kein (® vor die Laufwerksnummer gesetzt ist, 
darf auf der angesprochenen Diskette noch keine Datei mit dem benutzten Namen stehen. 
Wird hingegen das (3 eingefügt, wird eine eventuell vorhandene Datei gleichen Namens 
vom laufenden Programm überschrieben. Wenn das gewünscht ist, können Sie also auf ein 
vorhergehendes Löschen (s. Abschnitt 9.2) der alten Datei verzichten. 

Die Sekundäradresse s wird für die interne Abwicklung in der floppy-disk benötigt. Wenn 
Sie mehrere Kanäle für verschiedene Dateien gleichzeitig offen halten wollen, müssen nicht 
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nur die Kanalnummern, sondern auch die Sekundäradressen eindeutig sein. Da die floppy- 
disk ohnehin nur maximal 6 Kanäle (einschließlich des Kommandokanals) gleichzeitig be- 
dienen kann, wird geraten, bei den Datenkanälen wie im obigen Beispiel zu verfahren, und 
für k und s den gleichen Wert zu wählen. 

Für die Ausgabe von Datensätzen auf eine Diskette wird eine Variante der PRINT-Anwei- 
sung benutzt, wobei die Fragezeichen-Konvention nicht gestattet ist. 


Die Ausgabeanweisung für die floppy-disk lautet 
PRINT #k, Liste 
worin k die Nummer eines zuvor eröffneten floppy-Ausgabekanals ist. 





Die Liste wird nach den gleichen Regeln aufgebaut wie bei der gewöhnlichen PRINT-An- 
weisung. Auch die Wirkung der Listentrennzeichen Komma und Semikolon ist unverändert. 
Sollen Teile eines Datensatzes später als getrennte Daten gelesen werden, müssen im Daten- 
satz an den entsprechenden Stellen Kommas gespeichert sein. Sie sollten daher geeignete 
Strings (” , “) in die PRINT-Liste einfügen. Außerdem müssen Sie dafür sorgen, daß in die 
Datei Satztrennzeichen gesetzt werden, die ein späteres, satzweises Lesen ermöglichen. 


Die Ausgabe von CHR$(13) auf eine Disketten-Datei liefert ein Satztrennzeichen, 
das später einen Lesebefehl beendet. 


Beispiel: 

33 PRINT #4,X;” , ;Y; CHR$(13);Z;CHR$(13) hd 
Um die mit dieser Anweisung ausgegebenen Zahlen zu gegebener Zeit wieder lesen zu kön- 
nen, muß zuerst ein Lesebefehl mit 2 Variablen ausgeführt werden, der die alten Werte von 
X und Y holt, und danach einer mit einer Variablen, der den alten Wert von Z liest. 
Die Ausgabe von Daten auf eine Diskette ist nur sinnvoll, wenn man diese Daten auch wie- 
der lesen kann. Dafür ist aber unverzichtbare Voraussetzung, daß das Programm, das die 
Ausgabedatei erstellt, diese auch ordnungsgemäß abschließt. Erst zu diesem Zeitpunkt er- 
folgen die Eintragungen in das Inhaltsverzeichnis der Diskette, die für das spätere, erfolg- 
reiche Lesen der Daten notwendig sind. 


Eine Disketten-Ausgabedatei muß abgeschlossen werden mit 
CLOSE k 

Beispiel: 
95 CLOSE 4 


Nachdem eine sequentielle Disketten-Datei geschlossen ist, kann sie vom gleichen oder ei- 
nem anderen Programm gelesen werden. Voraussetzung ist, daß zunächst ein Eingabekanal 
eröffnet wird. 


Ein Eingabekanal für die floppy-disk wird eröffnet mit 

OPEN k, 8, s, ”m:Name, SEQ, READ“ 

Für die Laufwerksangabe m sind nur ® oder 1 erlaubt. Sonst gelten die beim Aus- 
gabe-OPEN aufgeführten Regeln. 


9.4 Fehlerbehandiung 53 





Beispiel: 
100 OPEN 5,8,5,”0:TESTDATEN,SEQ, READ“ ) 
Das Lesen von Disketten-Datensätzen erfolgt mit einer modifizierten INPUT-Anweisung. 


Die Eingabeanweisung für die floppy-disk lautet 
INPUT #k, Variablenliste 


Darin ist k die Nummer eines zuvor eröffneten floppy-Eingabekanals. 
Beispiel: 
118 INPUT #5,A,B ® 


Dateien werden über ihren Namen identifiziert. Vorausgesetzt, die Diskette wurde inzwi- 
schen aus Laufwerk 1 in Laufwerk ® umgelegt und das I-Kommando (s. Abschnitt 9.1) 
ordnungsgemäß ausgeführt, würde mit diesem Lesebefehl der erste Satz der in den obigen 
Beispielen angelegten Datei gelesen, d.h. der seinerzeitige Wert von X stünde jetzt bei A 
und der von Y bei B. 

Auch ein Eingabekanal darf mit CLOSE k geschlossen werden, wenn er nicht mehr benötig' 
wird. Erforderlich ist das jedoch nicht, es sei denn, die Zahl offener Kanäle wird zu groß. 


9.4 Fehlerbehandlung 


Bei den Übungen zu diesem Kapitel haben wir auf die Radikalkur zur Überwindung von 
Fehlerbedingungen in der floppy-disk hingewiesen: das Aus- und Einschalten der gesamten 
Anlage. Dieses Vorgehen hat jedoch Konsequenzen, die oft nicht akzeptabel sind: Das aktu- 
elle Programm wird zerstört, die Fehlerursache kann nicht erkannt werden, und Datenbe- 
stände können verlorengehen. 

Ein besserer Weg ist, vom cbm-Rechner her die Fehlerbedingung abzufragen. Nach dieser 
Abfrage wird die Fehleranzeige der floppy-disk gelöscht und Sie erhalten Gelegenheit, Ihr 
Programm ordnungsgemäß abzuschließen (CLOSE für Ausgabedateien geben!) oder gar den 
Lauf fortzusetzen. Voraussetzung ist, daß Ihr Programm eine entsprechende Routine ent- 
hält, damit Sie die Fehlerabfrage ohne Programmänderung bewerkstelligen können. 

In Abschnitt 9.1 haben wir gesehen, wie mit Hilfe eines Kommandokanals und darauf ab- 
gestimmten PRINT #-Anweisungen an die floppy-disk Kommandos übergeben werden. Über 
den gleichen Weg, aber in umgekehrter Richtung, d.h. mit INPUT # statt PRINT#, kann die 
Fehlerinformation von der floppy-disk in den Rechner geholt werden. Sie sollten daher fol- 
gendes Programmstück aufnehmen, wobei Sie natürlich andere Zeilennummern, eine andere 
Kanalnummer oder andere Variablen benutzen dürften: 


60091 OPEN 1,8,15 

60992 INPUT #1,08,W9,E$,R$ 
66803 PRINT ”FEHLERMELDUNG“ 
60004 PRINT Q9,W8,E9,R$ 

60005 CLOSE 1 

60906 STOP 
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Wenn jetzt die Fehleranzeige der floppy-disk aufleuchtet, können Sie die Kontrolle überneh- 
men (STOP-Taste) und nach der READY-Meldung das Kommando 


GOTO 69991 
geben. Die aufgeführten Befehle bringen die 4teilige Fehlermeldung, gefolgt von BREAK 
IN 60006, auf den Bildschirm. Anhand dieser Meldung können Sie jetzt über den Abbruch 


des Programms oder die Fortsetzung an geeigneter Stelle entscheiden. Falls Ausgabedateien 
eröffnet sind, sollten Sie mindestens die zugehörigen CLOSE-Anweisungen ausführen lassen. 


9.5 Aufgaben 


9-1 Vor dem Arbeiten mit Disketten wird häufig ein Kommandokanal eröffnet, z.B. 
OPEN 1, 8, 15. Was bedeuten die 3 Zahlen? 

9-2 Wozu dient der Diskettenname? 

9-3 Wie können Sie sich das Inhaltsverzeichnis einer Diskette anzeigen lassen? Wie sieht 
der Inhalt des Programmspeichers unmittelbar danach aus? Was müssen Sie beachten, 
wenn Sie jetzt ein neues Programm entwickeln wollen? 

9-4 Was bewirkt das Kommando 

PRINT #1, ’N9:3, 4“ 

9-5 Schreiben Sie ein Programm, das die ersten 3 Sätze einer floppy-Datei liest. Der erste 
Satz soll eine, der zweite zwei und der dritte Satz drei Zahlen enthalten. Erstellen Sie 
für den Programmtest folgende Datei: 1 im 1. Satz. 2 und 3 im 2. Satz. 4,5 und 6 im 
3. Satz. 


55 


10 Benutzung des Druckers 


Bei vielen Benutzern findet man den Wunsch und oft auch die Notwendigkeit, die Ergebnis- 
se von Programmläufen oder die Programme selber in schriftlicher Form zu erhalten. Wenn 
Sie zu diesem Benutzerkreis zählen, sollten Sie Ihre Anlage herrichten (Papier einlegen, Ver- 
bindungskabel installieren, Stromversorgung für Rechner und Drucker einschalten) und den 
Gebrauch des Druckers trainieren. 

In diesem Kapitel werden wir nur die grundlegenden Möglichkeiten des Druckers anspre- 
chen, zumal diese für die meisten Anwendungen ausreichen. Wenn Sie den hier gebotenen 
Stoff beherrschen und Drucker-Ausgaben programmieren müssen, die sich damit nicht be- 
werkstelligen lassen, sollten Sie im Handbuch für Ihren Drucker nachsehen. Je nach Bauart 


bietet dieser weitere Ausgabevarianten, mit denen Sie Ihr konkretes Problem vielleicht lö- 
sen können. 


a) Schreiben Sie 
30 T18 = ’CM RADIUS = > FLAECHE =“ 
40 T28 = "OCM“ 
5SÖ INPUT”RADIUS“;R 
60 PRINT R;T19,T*R*R;T29 
76 INPUT”NEU RECHNEN (J EINGEGEBEN)“ ;W$ 
8d IF WS =") THEN 50 
RUN 


Lassen Sie das Programm 2- bis 5-mal durchlaufen und geben Sie dann zur Beendigung 
ein von ] verschiedenes Zeichen ein. 


Ergänzen Sie 
#5, 

in Zeile 6® unmittelbar hinter PRINT und schreiben Sie 
10 OPEN 5,4 


Lassen Sie das Programm mit den obigen Daten erneut laufen. Betätigen Sie anschließend 
am Drucker so oft die Taste für den Papiervorschub, bis Sie die Ausgabezeilen beider 
Programmläufe vergleichen können. 
b) Ergänzen Sie 
‚1:OPEN 6, 4,2 
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hinter der 4 in Zeile 1® und fügen Sie noch ein: 
20 PRINT #6,”ZZZ AAAAAAAAAAAAAAAAAAAAAA ZZZZZ.99 AAA" 
96 CLOSE 5:CLOSE 6 


Lassen Sie dieses Programm ausführen. 


c) Um auch den bei Übung b) unterdrückten Teil der Ausgabe zu erhalten, ergänzen Sie 
hinter dem Anführungszeichen am Ende der Zeilen 3® und 4ß jeweils 


+ CHR$ (29) 


Lassen Sie auch dieses Programm mit den obigen Eingabewerten laufen. Registrieren Sie 
die Unterschiede im Druckbild. 


d) Ersetzen Sie in Zeile 2® jedes Z durch eine 9 und sehen Sie sich an, wie dadurch die Aus- 
gabe beeinflußt wird. 


e) Schreiben Sie jetzt 


OPEN 7,4:CMD 7 
LIST 


und wenn das Drucken beendet ist 
PRINT#7 


10.1 Auflistung von Programmen 


Im Abschnitt 4.3 haben wir die Varianten des LIST-Kommandos erörtert, mit denen Teile 
eines Programms oder ein ganzes Programm auf dem Bildschirm angezeigt werden können. 
Wie Sie in Übung e) gesehen haben, können LIST-Kommandos so umdirigiert werden, daß 
die Programmzeilen auf dem Drucker angezeigt werden. 


Die Ausgabe eines LIST-Kommandos wird auf den Drucker gelegt durch 
OPEN k, 4:CMDk 
Darin ist für k eine Zahl zwischen 1 und 255 einzusetzen. 


Die Wirkung dieses Kommandopaares wird aufgehoben durch 
PRINT#k 


Das OPEN-Kommando kennen Sie bereits aus den beiden vorangegangenen Kapiteln. Es 
wird immer dann gegeben, wenn ein Übertragungskanal zwischen dem Rechner und einem 
Peripheriegerät eröffnet werden soll. Welches Gerät gemeint ist, wird durch den zweiten 
Parameter gesagt, hier die 4, die Gerätenummer des Druckers. Durch den Verweis auf den 
Drucker-Kanal im CMD-Kommandbo erfolgt das Umlegen der LIST-Ausgabe. Mit den nach- 
folgenden LIST-Kommandos werden die Programmzeilen solange gedruckt, bis die Wirkung 
von CMDk durch PRINT#k neutralisiert wird. 
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10.2 Ausgabe auf den Drucker 


Wie bei den anderen Peripheriegeräten muß auch hier ein Ausgabekanal eröffnet sein, ehe 
die entsprechenden PRINT #-Anweisungen ausgeführt werden dürfen. 


Ein Ausgabekanal vom Rechner zum Drucker wird festgelegt mit 
OPEN KK, 4, s 

Die Kanalnummer k muß zwischen 1 und 255 liegen. 

Für die Sekundäradresse s sind zulässig: 

Ö normaler Ausdruck 

1 formatierter Ausdruck 


Beispiel: 
20 OPEN 5,4, 1 ° 


Die Ausgabeanweisung für den Drucker lautet 
PRINT#k, Liste 
worin k die Nummer eines zuvor eröffneten Drucker-Ausgabekanals ist. 


Wenn ein Kanal für formatierte Ausgabe angezogen wird, muß auch eine Formatie- 
rung festgelegt worden sein. 


Beispiel: 
40 PRINT #5,X, DM“ o 


Die Liste wird nach den gleichen Regeln aufgebaut wie bei der gewöhnlichen PRINT-An- 
weisung. Wie die Übung a) gezeigt hat, sind auch die Ausgabezeilen für Bildschirm und Druk- 
ker völlig gleich, wenn ein Ausgabekanal mit Sekundäradresse ® benutzt wird. (Bei fehlender 
Sekundäradresse wird hier ® angenommen.) Für diese Ausgabeform gilt grundsätzlich alles, 
was in Kapitel 5 über die Ausgabe gesagt wurde. 

Anders verhält es sich mit der formatierten Ausgabe. Hier werden die Lage der Datenfelder 
und die Darstellungsform der Daten durch die Formatierung, auch Maske genannt, festge- 
legt. 

Wer aufwendige Druckerausgaben programmiert und im gleichen Programm noch andere 
Peripheriegeräte anspricht, läuft Gefahr, die Maximalzahl von 1 gleichzeitig geöffneten 
Kanälen zu überschreiten. Außerdem empfiehlt sich in jedem Fall das Schließen des Druk- 
ker-Ausgabekanals, weil sonst am Programmende unter Umständen der letzte Teil der Aus- 
gabe im Rechner hängenbleibt. Das liegt daran, daß die Ausgabe normalerweise mit Hilfe 
eines Pufferspeichers abgewickelt wird. Dieser wird nicht nach jeder PRINT-Anweisung zum 
Drucker übertragen, wohl aber beim Schließen des Ausgabekanals. 


Der Übertragungskanal k wird geschlossen mit 
CLOSE k 
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10.3 Formatierung 


Formatierungen werden über einen separaten Kanal an den Drucker übergeben. 


Ein Formatierungskanal wird festgelegt mit 
OPEN i,4,2 
Die Kanalnummer i muß zwischen 1 und 255 liegen. 


Beispiel: 
25 OPEN 6, 4,2 oe 


Eine Formatierung wird definiert durch 

PRINT #i, String 

Der String, als Konstante oder Variable, enthält Datenfelder, die durch Leerzeichen 
getrennt sein dürfen, 

Mit i wird auf einen Formatierungskanal verwiesen. 


Beispiel: 
36 PRINT #6,”S9999.9 AAAA“ © 


Wenn eine PRINT #-Anweisung für formatierte Ausgabe ausgeführt wird, muß eine Forma- 
tierung definiert und der Formatierungskanal noch geöffnet sein. Im Laufe der Zeit dürfen 
verschiedene Formatierungen gegeben werden. Dabei muß aber sichergestellt sein, daß die 
Struktur der tatsächlichen Ausgabeanweisungen und die der aktuellen Formatierung über- 
einstimmen. Die auszugebenden Werte (Zahlen oder Strings) werden der Reihe nach den 
Datenfeldern zugeordnet, die im Typ jeweils passen müssen. Überschüssige Datenfelder wer- 
den ignoriert. Sind zuwenig Datenfelder vorhanden, wird der Formatierungsstring mehrfach 
interpretiert. 

Beispiele von Datenfeldern haben Sie in Zeile 2 der Übungen c) und d) gesehen. Das Feld 
ZZZ führte zu einer 3stelligen Darstellung des Radius im Ausgabesatz. Aber auch beim 

Feld 999 erfolgte eine 3stellige Ausgabe, diesmal jedoch ohne führende Nullen. Entspre- 
chendes galt für die Strings und die Abstände zwischen benachbarten Datenfeldern. 


Lage und Länge der Datenfelder im Formatierungsstring und in der Ausgabezeile 
sind identisch. 


Das heißt u.a., daß die Länge des Formatierungsstrings die Länge der Ausgabezeile be- 
stimmt. Ist dieser String länger als die Druckerzeile, werden die überschüssigen Zeichen in 
die nächste Druckerzeile gesetzt. 


Lassen Sie uns nun auf die Datenfelder eingehen. 


Jeder tatsächlich auszugebende String muß mit CHR$ (29) beendet werden. 
Die Notwendigkeit von CHR${29)(s. Kap. 13) haben die Übungen b) und c) gezeigt. Dane- 
ben scheinen noch folgende Hinweise nützlich. 


Strings werden linksbündig in das Datenfeld eingestellt und ggf. die überschüssigen Zeichen 
hinten abgeschnitten. Führende Leerstellen werden ignoriert, es sei denn, sie wurden in Ver- 


| Ein String-Datenfeld wird durch ein oder mehrere A dargestellt. 
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bindung mit der SHIFT-Taste programmiert. Da das abschließende CHR$ (29) nicht ausge- 
geben wird, muß dafür im Datenfeld keine Stelle vorgesehen werden. 


Bei Datenfeldern für die Ausgabe numerischer Werte haben Sie mehrere Varianten zur Aus- 
wahl. 


Jede Stelle eines Datenfeldes für numerische Ausgabe kann durch eine 9 definiert 
werden. 

Für das Dezimalzeichen wird ggf. ein Punkt gesetzt. 

im gesamten ganzzahligen Teil darf anstelle der 9 das Z benutzt werden. 


Bei Verwendung dieser Codes wird das Vorzeichen der Ausgabewerte ignoriert, es wird also 
nur der Betrag der Werte gedruckt. Wenn dessen ganzzahliger Teil nicht in das vorgesehene 
Feld paßt, wird das gesamte für diese Zahl in der Ausgabezeile eingeplante Feld mit Sternen 
gefüllt. Z und 9 unterscheiden sich darin, daß beim Z-Code jede Stelle im Ausgabefeld be- 
druckt wird. Bei Bedarf werden führende Nullen eingesetzt. Beim 9-Code hingegen wird der 
ganzzahlige Teil erst ab der ersten von Null verschiedenen Ziffer gedruckt. 


Zur Ausgabe des Vorzeichens darf entweder ein S vor oder ein Minuszeichen hinter 
ein nach den vorstehenden Regeln gebildetes Datenfeld gesetzt werden. 


Bei S wird in der Ausgabe stets das Vorzeichen (+ oder -) vorangestellt, während bei - nur 
das negative Vorzeichen nachgestellt wird. 


Beispiele sind nachstehend aufgeführt. 











Ausgabe von 100 -1 0.19 Datenfeld 
** 01 00 ZZ 
vr 1. . 99. 
vr 01. 00. ZZ. 
vr%* 1.0 1 99.9 
*r% 01.0 00.1 ZZ.9 
+##* 0-10 + 1 s99.9 
vr 1.0 - 1 | 99.9 - ° 











10.4 Aufgaben 


10-1 Wenn Sie in ein Programm mit Bildschirmausgabe an den Anfang ein OPEN k, 4 für 
unformatierte Druckerausgabe und hinter jedes PRINT den Verweis auf den Ausga- 
bekanal (#k,) setzen, erscheint die Ausgabe unverändert auf dem Drucker. Entspre- 
chendes gilt für den Übergang von unformatierter Drucker- auf die Bildschirmausgabe. 


Ist diese Aussage wirklich uneingeschränkt richtig, oder sind gewisse Teile der Ausga- 
be nicht übertragbar? 
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10-2 Schreiben Sie ein Programm, das in 2 nebeneinanderliegenden Kolonnen Zahlen X 
und deren Quadrat ausgibt. Die Zahlen sollen mit 3 Ziffern hinter dem Dezimalpunkt 
und bis zu 3 Ziffern vor dem Punkt sowie mit Vorzeichen dargestellt werden. Zwi- 
schen den Kolonnen sollen 3 Stellen frei bleiben. Die Kolonnen sollen X bzw. Xt2 
als Überschrift erhalten, wobei das X genau über den Punkten stehen soll. Lassen Sie 
das Programm mit ca. 10 teils positiven und teils negativen X-Werten laufen. 


10-3 Lassen Sie das Programm zu Aufgabe 10-2 (oder ein anderes) ausdrucken. 
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11 Schleifen 


Programmteile, die mehrfach durchlaufen werden, lassen sich mit einer bedingten Sprungan- 
weisung programmieren. In vielen Fällen kann stattdessen die spezielle Schleifenanweisung 
benutzt werden, die wir uns jetzt ansehen wollen. 


a) Schreiben Sie folgendes Programm und notieren Sie die Ergebnisse des Programmlaufs. 


18 K=25 

29 ?K 

5öK=-K+1.5:1F K<= 7.5 THEN 29 
60 ?”ENDE“ 


b) Ändern Sie die folgenden Zeilen. 


18 FORK=2.5T07.5STEP 1.5 
50 NEXT 


Lassen Sie das geänderte Programm laufen, und vergleichen Sie die Ergebnisse mit denen 
aus Übung a). 


c) Löschen Sie in Zeile 1 die Zeichen 


STEP 1.5 


Sehen Sie sich an, welchen Einfluß das auf die Leistung des Programms hat. 


11.1 Schleifen im Ablaufplan 


Bei der Einführung des GOTO-Kommandos haben wir erwähnt, daß es bei einigen Klassen 
von Programmen sinnvoll ist, vom Ende des Programms wieder an seinen Anfang zu sprin- 
gen. Derartige Schleifen werden hier nicht erörtert. Jetzt geht es darum, einen echten Teil 
eines Programms mehrfach in Serie zu durchlaufen, d.h. dieses Stück als Schleife zu formu- 
lieren, und dann in einen anderen Programmteil einzusteigen. 


Bild 11.1 zeigt die Darstellung von Schleifen in Ablaufplänen. Der Planausschnitt a stammt 
aus dem Beispiel des Abschnitts 7.3, den Ausschnitt b finden Sie in Übung a) wieder. Bei- 
den gemeinsam ist, daß die Schleifensteuerung über eine Variable (S bzw. K) erfolgt, deren 
Wert in der Schleife systematisch verändert wird. Vor der Schleife erhält diese Variable ei- 
nen Startwert. Am Ende der Schleife wird durch einen Vergleich mit einem Schwellenwert 
entschieden, ob ein weiterer Durchlauf erfolgen soll. 

Der wesentliche Unterschied liegt in der Art, wie die zur Steuerung benutzte Variable ver- 
ändert wird. Im Fall a werden unterschiedliche, im Fall b gleiche Summanden addiert. Nur 
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Bild 11.1 Schleifensymbol | 


für Schleifen der zweiten Art läßt sich die BASIC-Schleifenanweisung verwenden. Da in ei- 
nem detaillierten Ablaufplan genau festgelegt wird, welche ausführbaren Anweisungen pro- 
grammiert werden sollen, ist ein Schleifensymbol erforderlich. Wir umschließen die Schleife 
mit einem stärker gezeichneten Rechteck, in dessen oberen Rand ein flach gestrecktes Sechs- 
eck für die Aufnahme der Laufliste gesetzt wird. Dieses recht anschauliche Schleifensymbol 
wird von zahlreichen EDV-Anwendern benutzt. Es ist mit der DIN 66091, die kein Schlei- 
fensymbol kennt, verträglich, während die anderen, in diesem Buch verwendeten Symbole 
der genannten Norm entstammen. Wie die Schleife aus Fall b mit Hilfe der Schleifensym- 
bolik dargestellt wird, sehen Sie in Bild 11.1, Fall c. 


In dem Rahmen, der die Schleife umschließt, sind alle Ablaufplansymbole erlaubt, also dür- 
fen dort insbesondere auch Schleifen auftreten. Beachten Sie, daß die äußere Schleife die 
innere dabei vollständig umfaßt. Eine nur teilweise Überschneidung von Schleifensymbolen 
ist unzulässig. Welchen Bedingungen die Laufliste genügen muß, finden Sie im nächsten Ab- 
schnitt. 


11.2 Schleifenanweisung 


Im Ablaufplan werden die Symbole durch einen Rahmen eingegrenzt, die den Inhalt einer 
Schleife bilden. Eine entsprechende Begrenzung muß auch im Programm vorgenommen wer- 
den. 


Der Schleifenanfang wird festgelegt mit 
FOR k=kaTO keSTEP ks 

Das Schleifenende wird markiert durch 
NEXT oder NEXT k 
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Für k ist eine Variable einzusetzen. 
Für ka, ke und ks sind arithmetische Ausdrücke erlaubt. 


Wenn mit der Schrittweite 1 gearbeitet werden soll, darf die Angabe STEP ks ent- 
fallen. 


Der BASIC-Interpreter versteht das Kennwort FOR als Anfang einer Schleife und erwartet 
dahinter die Laufliste. Außerdem muß zu jeder FOR-Anweisung später eine NEXT-Anwei- 
sung auftreten. Ein dadurch eingegrenzter Schleifenbereich wird zunächst einmal durchlau- 
fen, wobei die Laufvariable k ihren Anfangswert ka trägt. Sodann wird die Laufvariable bei 
positiver (negativer) Schrittweite ks erhöht (verringert): k=k + ks. Falls der neue Wert der 
Laufvariablen noch nicht größer (kleiner) als der Endwert ke ist, wird die Schleife erneut 
durchlaufen. Dieses Wechselspiel von Änderung der Laufvariablen und erneutem Schleifen- 
durchlauf wiederholt sich solange, bis der Endwert überschritten (unterschritten) würde. 
Einen Punkt wollen wir noch einmal betonen: 


| Eine Schleife wird mindestens einmal durchlaufen. 


Innerhalb einer Schleife dürfen beliebige Anweisungen auftreten, z.B. wiederum Schleifen, 
die dann aber vollständig ineinandergeschachtelt sein müssen. Im Falle von 2 Schleifen sieht 
der BASIC-Interpreter das erste NEXT als Ende der inneren und das zweite als Ende der 
äußeren Schleife an. Damit ist für ihn die Schachtelung korrekt. Falls Sie das Ende in der 
Form NEXT k programmieren, müssen Sie darauf achten, daß zunächst die innere und dann 
die äußere Schleife geschlossen wird. Dieses gilt analog, wenn mehr als 2 Schleifen ineinan- 
der liegen. 


Besondere Sorgfalt ist angebracht, wenn Schleifen und Sprünge zusammentreffen. Verboten 
ist, in eine Schleife hineinzuspringen. Von außen dürfen Sie nur über die FOR-Anweisung 
kommen, die Sie auch anspringen dürfen. Soll ein Schleifendurchlauf abgebrochen bzw. 
zum nächsten Wert der Laufvariablen übergegangen werden, muß das Schleifenende ange- 
sprungen (erreicht) werden. Darüber hinaus darf ein Schleifenbereich über einen Sprung 
verlassen werden. 

Falls der Sprung aus einer inneren in eine äußere Schleife führt, müssen die Schleifenenden 
in der Form NEXT k codiert werden, weil der Interpreter andernfalls die Enden falsch zu- 
ordnet. Nach Möglichkeit sollte man solche Sprünge vermeiden. Ein Beispiel am Schluß des 
nächsten Abschnitts zeigt, wie Sie mitunter auf Sprünge verzichten können. 


11.3 Indizierte Variablen 


Diesen Abschnitt wollen wir mit der Erörterung eines kleinen Beispiels beginnen. 


Problem: Es sollen N Preise P; gelesen und ihre Summe S berechnet werden. Falls S ober- 
halb 1000 liegt, sollen alle Einzelpreise und die Summe, andernfalls soll nur die Summe aus- 
gegeben werden. Externe Speicher dürfen nicht verwendet werden. 

Falls es nur auf die Berechnung und Ausgabe der Summe $ angekommen wäre, hätte man 
nach dem Ablaufplan a aus Bild 11.2 arbeiten können. In der zentralen Verarbeitungs- 
schleife wird jeweils ein Preis P gelesen und in die Summe $ einbezogen. Beim nächsten 
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Durchlauf wird wieder ein Preis gelesen und ebenfalls auf der Variablen P gespeichert. Da- 
bei wird der alte Wert von P zerstört. Das könnte man in Kauf nehmen, vielmehr wäre es 
sogar sinnvoll, wenn es nur auf S ankäme. 

Um unser Problem zu lösen, dürfen wir die Einzelpreise nicht durch ständiges Überspeichern 
vergessen. Wir müssen sie mindestens solange alle separat speichern, bis die Gesamtsumme 
bekannt ist. Folglich müssen wir beim Lesen der Preise lauter verschiedene Speicherplatzbe- 
zeichnungen benutzen. Doch wie sollen wir das formulieren, zumal die Anzahl der Preise 
variabel ist? 


Mit unserem derzeitigen Kenntnisstand ist das Problem nicht zu lösen. Wir brauchen eine 
Speicherzugriffstechnik, bei der die Speicherplatzbezeichnungen vom Programm generiert 
werden und nicht als Variablennamen starr festgeschrieben sind. Diese Anforderungen las- 
sen sich mit indizierten Variablen befriedigen. 











Bild 11.2 
Summe von Eingabewerten 


Ausgabe: 
S 
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Die Bezeichnung einer indizierten Variablen umfaßt einen Namen und eine Indexliste: 
Name (Indexliste) 


Der Name wird nach den Regeln für Variablennamen geschrieben. 

In der Indexliste stehen einer oder mehrere durch Kommas getrennte Indizes. 

Jeder Index darf als arithmetischer Ausdruck geschrieben werden. 

Der Wert eines Index darf nicht negativ sein, der echt gebrochene Anteil wird ignoriert. 


Alle indizierten Variablen mit gleichem Namen bilden einen sog. Array. Wenn in der Index- 
liste jeweils nur ein Index steht, nennt man den Array auch einen Vektor, wenn stets ein In- 
dexpaar auftritt, spricht man von einer Matrix. Das einzelne Element eines Arrays kann eine 
Zahl (einen String) aufnehmen und genauso verwendet werden wie eine gewöhnliche (String-) 
Variable. Der Vorteil der indizierten Variablen liegt in der Möglichkeit, während der Pro- 
grammausführung den Index zu ändern, so daß ein und derselbe Befehl in einem Lauf mit 
verschiedenen Speicherplätzen arbeiten kann. 


Beispiele von indizierten Variablen: 
A(3)lAB(5,K,X + 1)IABS(A (2), 7) IA % (2, A) ® 


Bemerkenswert ist, daß die hier aufgeführten Arraynamen im selben Programm auftreten 
dürfen, sie vertragen sich auch mit Variablen gleichen Namens, z.B. A, A % oder AB$, Bei 
gleichen Arraynamen dürfen aber keine Indexlisten verschiedener Struktur benutzt werden, 
so daß z.B. A(3) und A(4, 5) unverträglich sind. 


Lassen Sie uns nun in der Erörterung des am Anfang dieses Abschnittes gestellten Problems 
fortfahren! Als Schwachstelle hatten wir bereits das Lesen der Preise erkannt. Dort werden 
wir jetzt eine einfach indizierte Variable verwenden und dafür sorgen, daß sich bei jedem 
Schleifendurchlauf ein anderer Index ergibt. Das gelingt besonders einfach, wenn wir als 
Index die Laufvariable nehmen. So erhalten wir schließlich den Plan b aus Bild 11.2. 
Mancher Leser wird bei der Ausgabeschleife in diesem Ablaufplan Bedenken haben, ob die 
Zahlen, die wir auf P(K) gelesen haben, mit P(L) wiedergefunden werden. Machen Sie sich 
bitte klar, was wir über den Index gesagt haben. Er wird als arithmetischer Ausdruck ange- 
sehen, dessen Wert zu ermitteln ist. Der ganzzahlige Teil dieses Wertes dient als tatsächlicher 
Index. Entscheidend ist daher, daß die Indizes in der Lese- und der Ausgabeschleife die 
gleiche Zahlenmenge durchlaufen. Ob wir dabei als Index verschiedene Variablen benutzen 
oder nicht, ist unwichtig. 


Wir müssen noch auf die Speicherung indizierter Variabler eingehen und können an Bemer- 
kungen aus Kapitel 5 anknüpfen. Dort hatten wir schon gesagt, daß die Variablen in einem 
bestimmten Speicherbereich angelegt werden. Wenn der BASIC-Interpreter in einer Anwei- 
sung einen Variablennamen findet, sieht er in einer Tabelle nach, wo der zugehörige Spei- 
cherplatz anfängt. Steht der Name nicht in der Tabelle, wird er ergänzt und ihm eine Platz- 
adresse zugeordnet. Entsprechend verfährt der Interpreter, wenn er auf einen Arraynamen 
stößt. Allerdings bedarf es hier grundsätzlich einer Absprache darüber, wieviel Speicherplatz 
dem Array zugeordnet wird. Sie können auf individuelle Vereinbarungen verzichten, wenn 
Sie die Standarddimensionierung übernehmen wollen. 
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Wenn der BASIC-Interpreter auf eine indizierte Variable aus einem Array trifft, der 
noch nicht angelegt ist, legt er ihn so an, daß er die Anzahl der Dimensionen aus der 
aktuellen Indexliste und für jede Dimension als maximalen Index 19 nimmt. 


Falls Sie den Indexbereich [P, 19] nie verlassen und damit insbesondere bei mehrfach indi- 
zierten Arrays keine große Platzverschwendung verbunden ist, sollten Sie die Standarddi- 
mensionierung nutzen. Andernfalls müssen Sie vor der ersten Verwendung den Array indi- 
viduell anlegen lassen. 


Arrays werden angelegt mit 

DIM Name (Liste maximaler Indexwerte) 

In der Liste wird für jede Dimension der maximale Index in Form eines arithmeti- 
schen Ausdrucks festgelegt. Bei 2 oder mehr Dimensionen werden die Angaben durch 
Kommas getrennt. 


Beispiel für Sprünge bei geschachtelten Schleifen. 


Wir wollen ein Programmstück erörtern, mit dem die Verteilung von Zufallszahlen auf vor- 
gegebene Intervalle erfaßt wird. Folgende Werte seien bekannt, Arrays seien ausreichend 
dimensioniert: 


M Anzahl der Zahlen 
N Anzahl der Grenzen 
X{N)<X{2)<...<X(N) Grenzen 


Mit RND(TI) (s. Kapitel 12) können Zufallszahlen erzeugt werden, und für jede soll das In- 
tervall (X; _ ,, X;] ermittelt werden, in dem die Zahl liegt. 

Bild 11.3 zeigt Ihnen einen Lösungsvorschlag. In der inneren Schleife wird das Intervall ge- 
sucht. Ist es gefunden, kann der Eintrag erfolgen und zur nächsten Zufallszahl übergegangen 
d.h. die äußere Schleife erneut durchlaufen werden. Falls Sie hier die Schleifenenden nur 
als NEXT codieren, läuft das Programm falsch; denn nach dem ersten Sprung von Zeile 13 
nach Zeile 169 werden keine weiteren Zufallszahlen generiert. 

Bild 11.4 zeigt eine Alternativlösung, die ohne Sprünge auskommt. Nachdem das Intervall 
gefunden und der Eintrag erfolgt ist, wird die Laufvariable der inneren Schleife auf ihren 
Endwert gesetzt. Deshalb wird diese Schleife anschließend verlassen und die äußere erneut 
durchlaufen. “ 


11.4 Aufgaben 


11-1 Schreiben Sie ein Programm, das n liest und n! (sprich: n Fakultät) berechnet. Es ist 
n! = 1*2*3 ... *n. 


11-2 Schreiben Sie ein Programm, das m und n liest (n positiv, ganzzahlig) und (7) (sprich: 
m über n) berechnet. 


* _ x _ 
Es ist (m) „. m*{m N)... (m+1-n) 


1*2...*n 


Anm.: (%) ist die Anzahl verschiedener Lottoreihen. 
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V(L)=V(L)#1 
L=N 





1668 FORK=1TOM 


118 Z=RND(TI) 


126 FORL=1TON 


130 IFZ <= X(L) THEN 169 
149 NEXTL 

158 GOTO 17$ 

168 V(L)=v(L)+1 


176 NEXT K 


Bild 11.3 Verteilung von Zufallszahlen, 1. Version 


166 FORK=1TOM 


116 Z=RND(TI) 


128 FORL=1TON 


130 IFZ <= X(L) THEN V(L)= V(L)+1:L=N 


148 NEXT 


158 NEXT 


Bild 11.4 Verteilung von Zufallszahlen, 2. Version 
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11-3 In Bild 11.1, Teil b und c, sind für positive Schrittweite eine explizite und eine 
FOR ... NEXT-Schleife gegenübergestellt. Geben Sie mit Hilfe der Vorzeichenfunk- 
tion SGN (s. Abschnitt 12.3) eine BASIC-Formulierung der allgemeinen expliziten 
Schleife, die sowohl für positive als auch für negative Schrittweiten genau der FOR ... 
... NEXT-Schleife entspricht. 


11-4 Schreiben Sie ein Programm, das n Punkte der (X, Y)-Ebene liest (Reihenfolge: n, X, , 
Y1,X3, Y23 2: ,Xn Yn), und nach X aufsteigend sortiert. 
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12 Unterprogramme 


Wenn Sie mit der Programmierung einer größeren Aufgabe konfrontiert sind, sollten Sie 
frühzeitig darangehen, die gestellte Aufgabe in Teilaufgaben zu gliedern. Dabei werden Sie 
oft erleben, daß an verschiedenen Stellen des Gesamtablaufs die gleichen Teilprobleme auf- 
treten. Das legt die Frage nahe, ob es möglich ist, ein solches wiederkehrendes Teilproblem 
in dem zu erstellenden Programm nur einmal abzuhandeln und das betreffende Programm- 
stück mehrfach zu nutzen. In diesem Kapitel wollen wir uns ansehen, wie weit dieses Vor- 
gehen von cbm-BASIC unterstützt wird. 


a) Schreiben Sie 

10 INPUT ”A, B“; A, B 
20 GOSUB 190 

30 2”Z30“, A 

40 INPUT ”C, D“;C,D 
50 GOSUB 199 

60 ?’Z60“, A 

79 GOTO 19 
198 IFB<ATHENA=B 
11d8 RETURN 


Lassen Sie das Programm 2- bis 3-mal durchlaufen. Beenden Sie die Ausführung, ohne 
das Programm zu zerstören (ggf. in Abschnitt 6.1 nachsehen). 


b) Ergänzen Sie die nachfolgende Zeile 45 und lassen Sie das Programm mit den gleichen 
Zahlen arbeiten wie in Übung a). Notieren Sie dabei die Folge der Eingabe- und Ausga- 
bezeilen. 


45 A=C:B=D 
c) Löschen Sie den Programmspeicher und schreiben Sie 
18 DEFFNTF (X) = ((X - 3)*X + 3)*X 1 
20 INPUT X 
30 ?FNTF(X) 
40 GOTO 20 


Lassen Sie das Programm einige Male laufen und geben Sie am besten kleine ganze Zah- 
len ein. 


d) Lassen Sie die Zeile IP unverändert und ersetzen Sie in den Zeilen 2 und 3® das X je- 
weils durch ein A. Starten Sie das Programm, und geben Sie die gleichen Zahlen ein wie 
in Übung c). 
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e) Ergänzen Sie jetzt 
15 X=3 
Lassen Sie das Programm mit einem Eingabewert ungleich 3 laufen und überzeugen Sie 


sich, daß der Inhalt von X nicht verändert wurde. Sehen Sie notfalls in Kapitel 4 nach, 
wie Sie das kontrollieren. 


12.1 Subroutine 


In Übung b) haben Sie ein Programm geschrieben, das an 2 Stellen Zahlenpaare liest und 
jeweils die kleinere der beiden ausgibt. Der Größenvergleich ist aber nur einmal (Zeile 199) 
codiert. Diese Zeile ist also nach jedem Lesen ausgeführt worden, was offenbar durch 
GOSUB 1ß9 erreicht wurde. Hätten wir stattdessen beide Male GOTO 199 geschrieben, 
wäre ebenfalls nach dem Lesen der Vergleich ausgeführt worden. Wir fragen uns daher, wo 
der Unterschied zwischen GOTO 19 und GOSUB 199 liegt. Diesen Unterschied erkennen 
Sie, wenn Sie in Ihr Protokoll der Übung b) schauen. Dort ist ausgewiesen, daß mit ver- 
schiedenen Anweisungen ausgegeben wurde. Der Rechner hat sich offenbar gemerkt, von 
wo er zur Zeile 1P® geschickt wurde, und ist jeweils dahin zurückgekehrt. Genau hierin 
liegt der Nutzen des Subroutine-Aufrufs GOSUB. 

Bevor wir eine Subroutine aufrufen, müssen wir jedoch dafür sorgen, daß die Zahlen, die 
wir in der Subroutine verarbeiten wollen, auf den Plätzen stehen, die in der Subroutine be- 
nutzt werden. Deshalb hat in Übung a) die Eingabe von C und D nichts bewirkt. Erst nach 
Ergänzung der Zeile 45 (Übung b) wurde auch für das Paar C, D die kleinere Zahl be- 
stimmt. Beachten Sie aber bitte, daß durch die erneute Belegung der Plätze A und B de- 
ren alter Inhalt verloren geht. Hätten wir diese alten Werte später im Programm noch be- 
nutzen wollen hätten wir sie rechtzeitig auf andere Plätze umspeichern müssen. 

Um möglichen Irrtümern vorzubeugen, wollen wir betonen, daß GOSUB und RETURN ein 
logisch zusammenhängendes Paar von Anweisungen bilden. RETURN wirkt nur, wenn zu- 
vor ein GOSUB erfolgte. Dabei ist durchaus gestattet, von einer Subroutine eine weitere 
aufzurufen. Der Rechner trägt nämlich bei GOSUB die zugehörige Rückkehradresse in eine 
Tabelle (von max. 26 Plätzen) ein. Wenn er auf ein RETURN-Kommando stößt, kehrt er zur 
jüngsten dieser Adressen zurück und streicht sie aus der Liste. Deshalb sollten Sie stets dar- 
auf achten, daß die Rückkehr aus einer Subroutine wirklich über RETURN erfolgt, damit 
die erwähnte Tabelle korrekt geführt wird. 


Lassen Sie uns diese Ausführungen in Regeln zusammenfassen: 
Eine Subroutine, die bei der Zeile mit der Nummer n beginnt, wird aufgerufen mit 
GOSUBn 


Mit RETURN wird hinter das GOSUB zurückgekehrt, das die betreffende Subroutine 
aufgerufen hat. 


Eine Schachtelung von Subroutine-Aufrufen ist erlaubt bis zu einer maximalen Tiefe 
von 26. 


12.1 Subroutine 71 








Ähnlich wie beim berechneten Sprung können von einer Stelle alternativ verschiedene Un- 
terprogramme aufgerufen werden. 


Diese Anweisung hat die Form 

ON aGOSUB nl, n2,..., nk 

Darin sind a ein nicht negativer arithmetischer Ausdruck und n1 bis nk Zeilennum- 
mern, bei denen jeweils eine Subroutine beginnt. 


Wenn der ganzzahlige Teil von a nicht zwischen 1 und k liegt, wird sofort mit der nächsten 
Anweisung fortgesetzt. Andernfalls wird vorher zum entsprechenden Unterprogramm ver- 
zweigt, d.h. z.B. beia= 2 nach n2, und nach RETURN die auf ON ... GOSUB folgende 
Anweisung ausgeführt. 


Beispiel für die Verwendung einer Subroutine: 


In einem (X, Y)-Koordinatensystem (X-Achse waagerecht) seien n Punkte (X, , Yı),... 

2.5 (Xn Yn) gegeben. Diese sollen spaltenweise aufsteigend sortiert werden, wobei der 

ganzzahlige Teil der X-Koordinate die Spalten definieren soll. 

Wir wollen diese Aufgabe so lösen, daß alle Sortierungen von einem Unterprogramm vorge- 

nommen werden. Deshalb speichern wir die Koordinaten in einer (n,3)-Matrix K: 

X in Spalte 1, Y in Spalte 2, [X] in Spalte 3. ([X] bedeutet größte ganze Zahl < X.) 

Auf folgenden Wegen kommt man zum Ziel: 

Weg A: 

1. Alle Punkte nach [X] sortieren. Danach liegen die Punkte einer Spalte, d.h. mit glei- 
chem [X] hintereinander. 

2. Jede dieser Spalten getrennt nach Y sortieren. 

Weg B: 

1. Alle Punkte nach Y sortieren. 

2. Alle Punkte nach [X] sortieren unter Beibehaltung der Vorsortierung aus Schritt 1. 


Wir wollen den Weg B realisieren. Bild 12.1 zeigt den entsprechenden Ablaufplan. Die Sor- 
tierung läuft so, daß nach dem ersten Durchlauf der äußeren Schleife die kleinste aller 
Zahlen auf Platz 1 steht, nach dem zweiten Durchlauf die kleinste der restlichen Zahlen 
(das ist die zweitkleinste von allen) auf Platz 2 usw. Bei jedem Durchlauf ist der auf dem 
HI-ten Platz stehende Wert mit allen nachfolgenden zu vergleichen, was in der H2-Schleife 
geschieht. Findet sich auf dem H2-ten Platz ein kleinerer Wert, wird er auf den HI-ten Platz 
gebracht, und die bis dahin auf den Plätzen von einschließlich H1 bis ausschließlich H2 
stehenden Zahlen werden um einen Platz nach hinten verschoben. Diesem Zweck dienen 
die beiden über L und M laufenden Schleifen. 


Das Hauptprogramm, auch MAIN genannt, reduziert sich in unserem Beispiel auf die Da- 

tenein- und -ausgabe sowie den zweimaligen Subroutineaufruf. Vor jedem Aufruf muß na- 
türlich noch festgelegt werden, nach welchem Begriff zu sortieren ist. Diesen Ablauf sehen 
Sie auch in Bild 12.1, während Bild 12.2 die BASIC-Version des gesamten Programms dar- 
stellt. “ 
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Start: SORT 
ja 
<I> 











DIM K{N, 3) 








K(L,3) = INT(K{L,1)) 





Ausgabe: 
K{L, 1), K{L, 2) 














Bild 12.1 Ablaufplan für die spaltenweise Sortierung von Punkten der Ebene 
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FRERDT, 
i REM SFALTEHMHEISE SORTIERUNG YOH PUNKTEN 
= REM SPALTE: DE DS. ERTL 3 
19 IHMFUT"AHZAHL "SH DIN KON.SS 
za FOR L=1 TOM 
32 IMPUTYSTO"REL.N 
3a Kil.a BR \ 
seh 
118 
128 E =] 
158 FÜR L= 1 "0 n 
lea FRIHT KiL>IN.ENL.EN 
17a NE&T 
126 END 
Sa REM UF SORT NACH SPALTE 3 
IF NZZ THEN FETUÜFN 
FOR niet TC H-1 
T=KiHl.53 !REM YERGLEICHSHERT 
S4a FOR Hi Hi+ TON 
sa IF KCHE T THENESA 
S55 REM PUNKT HZ WÜR FUNET 5SETZEH 
Seh 


E FÜR L= 1 To 3 
HE .STEP -1 


LÜRAL ‚NEU GEUFDNET 


: RETURN 


Bild 12.2 Programm für die spaltenweise Sortierung von Punkten der Ebene 


12.2 Funktion 


Mit der Subroutine steht uns ein Weg zur Verfügung, Unterprogramme beliebiger Länge zu 
formulieren. Falls der Umfang jedoch auf die Berechnung eines arithmetischen Ausdrucks 
beschränkt ist, können wir das Unterprogramm auch als Funktion codieren. 


Eine Funktion muß dem BASIC-Interpreter bekannt sein, ehe sie erstmals benutzt 
wird. 

Eine Funktion wird definiert mit 

DEFFNxx (Argument)=arithmetischer Ausdruck 


FNxx ist der Funktionsname, wobei für xx der Name einer gewöhnlichen Variablen 
eingesetzt werden darf. 


Das Argument wird als gewöhnliche Variable geschrieben. 
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Die Reihenfolge hinsichtlich Definition und Aufruf ist hier also anders als bei Subroutinen. 
Doch auch der Aufruf einer Funktion erfolgt anders. Es ist dafür keine eigene Anweisung 
nötig. 

Eine Funktion wird aufgerufen durch Nennung ihres Namens und des aktuellen Ar- 

guments in einem arithmetischen Ausdruck. 

Das aktuelle Argument darf ein arithmetischer Ausdruck sein. 


Funktionsaufrufe dürfen also überall dort stehen, wo BASIC einen arithmetischen Ausdruck 
zuläßt: auf der rechten Seite einer Wertzuweisung, in der Liste eines Ausgabekommandos 
und im aktuellen Argument beim Aufruf einer anderen Funktion. Insbesondere dürfen in 
dem arithmetischen Ausdruck, mit dem eine Funktion definiert wird, andere Funktionen 
aufgerufen werden, vorausgesetzt, der BASIC-Interpreter kennt diese anderen Funktionen 
schon. 

Sehen wir uns nun an, wie eine Funktion beim Aufruf mit Zahlen versorgt wird. Falls 

außer dem Argument weitere Variablen im definierenden Ausdruck stehen, werden deren 
momentane Werte benutzt. Insoweit haben wir hier die gleiche Situation wie bei einer Sub- 
routine. Anders verhält es sich mit dem Argument. 


Beim Aufruf einer Funktion wird der Wert des aktuellen Arguments ermittelt und 
im definierenden Ausdruck anstelle des formalen Arguments verwendet. 


Beispiele: 
18 DEFFNF (X) = 2*X 
20 P=FNF (3.5) 
Hierdurch erhält P den Wert 7. 
10 DEFFNG(T) = 1 + SQR(T) 
28 T=2 
38 Q=FNG(T+2) 
Hierdurch erhält Q den Wert 3 (als 1 +/4). . 


Bemerkenswert ist, daß im 2. Beispiel nach Ausführung der 3 Zeilen T den Wert 2 trägt, 
obwohl die Funktion mit dem Argument 4 aufgerufen wurde. Sie kennen diesen Effekt 
auch schon aus Übung e). 


Ein formales Argument ist nicht identisch mit einer gewöhnlichen Variablen gleichen 
Namens. 


12.3 Mathematische Standardfunktionen 


Eine Reihe von Funktionen sind Bestandteil des cbm-BASIC. Diese unterscheiden sich hin- 
sichtlich der Namenskonventionen von den selbst geschriebenen. Beim Aufruf hingegen be- 
steht Übereinstimmung: Als aktuelles Argument ist ein arithmetischer Ausdruck zugelas- 
sen. Bild 12.3 zeigt Ihnen, welche mathematischen Funktionen vorhanden sind. Dazu ei- 
nige Bemerkungen. 
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m — 
Mathematische BASIC Bedeutung 
Schreibweise | L_ 
I ABS (A) Betrag 
arctana ATN (A) Arcustangens 
cosa cos {A) Cosinus 
e? EXP (A) Exponentialfunktion 
[al INT {A) Größte ganze Zahl < a 
Ina LOG {A) Natürlicher Logarithmus 
RND (A) Gleichverteilte Zufallszahl 
e(0,1) 
sgn a SGN {A) Signumfunktion 
sin« SIN (A) Sinus 
Ya SOR (A) Quadratwurzel 
tan TAN {A) Tangens 
Als A ist ein arithmetischer Ausdruck erlaubt. 











Bild 12.3 Mathematische Standardfunktionen 


LOG erfordert ein positives Argument, während das von SOR nicht negativ sein darf. 


Das Argument von SIN, COS und TAN wird als Winkel im Bogenmaß interpretiert. Das Er- 
gebnis von ATN ist ebenfalls ein Winkel im Bogenmaß und zwar aus dem Intervall (- /2, 
m/2). Der Zusammenhang zwischen einem Winkel im Bogenmaß WB und dem entsprechen- 
den Winkel im Gradmaß WG ist durch folgende Gleichung gegeben: 


WB _ WG 
a 180 
SGN kann 3 Werte annehmen: 


-1,falls A<® 
SGN(A) = Bd ,fals A=® 
1,fals A>® 


Mit RND wird ein Zufallszahlengenerator aufgerufen, der über das Argument beeinflußt 
werden kann. Hierfür empfiehlt sich die Variable TI, weil deren Wert ständig verändert 
wird. 
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12.4 Aufgaben 


12-1 Aus n Werten X1, X2, -.. , Xn erhält man den Mittelwert x und die Varianz v durch 


1x I x 2 
2 X, van 2, iR) 
=1 


Schreiben Sie ein Programm zur Berechnung von Mittelwert und Varianz so, daß 
beide auftretenden Summen in einem Unterprogramm berechnet werden. 


12-2 Zwischen sinx, cosx und tanx bestehen u.a. die Beziehungen 


Diese lassen sich nutzen, um mit der Funktion ATN z.B. für sin x die Umkehrfunk- 
tion arcsin x zu gewinnen, d.h. eine Funktion, die bei Vorgabe des Sinuswertes {et- 
wa auf dem Platz SX) den zugehörigen Winkel im Bogenmaß berechnet. Schreiben 
Sie je ein Funktionsunterprogramm für arcsin x und arccos x. 
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13 Textverarbeitung 


Bislang haben wir Zeichenketten als nahezu unveränderliche Elemente betrachtet. Wenn 
wir den Wert einer Stringvariablen ändern wollten, geschah das immer von außen, immer 
durch eine Eingabeanweisung. Das geht auch anders, wie die folgenden Übungen zeigen. 


a) Schreiben Sie 
?:?CHRS$ (77); CHRS (85); CHR$ (84) 
Beherzigen Sie das Ergebnis und fahren Sie fort. 


b) Schreiben Sie 


10Ad=” “ 
20 FOR K = 1T07 

30 Ad=A® + CHRS(64 + K) 
40 NEXT 

5h ?AS 

RUN 


c) Jetzt wollen wir uns ansehen, was aus einem Nabel werden kann. 


10 AZ8 = "NABEL“ 

20 HS=LEFTS(AZ$, 2) 

39 AZS= RIGHTS (H$, 1) + LEFTS (HS, 1) + AZ 
40 AZS = AZS + RIGHTS (AZ$, 1) + LEFTS(AZS, 1) 
5p 2:2 AZS 

RUN 


Versuchen Sie kurz, die Entstehung des Namens nachzuvollziehen. 


13.1 Zeichendarstellung 


Ihr cbm-Rechner arbeitet intern rein numerisch. Wenn er trotzdem in der Lage ist, Zeichen 
und Worte zu speichern und damit zu hantieren, dann nur deshalb, weil jedem zulässigen 
Zeichen ein Zahlenwert zugeordnet worden ist. Wenn Sie beispielsweise die Buchstaben 
ABC eintippen, speichert der Rechner dafür 65, 66 und 67 und merkt sich, daß der Inhalt 
der fraglichen Speicherstellen einen String darstellt. Lassen Sie diesen Inhalt später auf dem 
Bildschirm zeigen, wird die Zahlenfolge automatisch in die entsprechenden Zeichen umge- 
wandelt: Sie sehen wieder ABC. Dieser Umwandlung liegt der ASCII zugrunde (American 
Standard Code for Information Interchange). 
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Mit 2 Funktionen können Sie die ASCII-Codeumwandiung direkt veranlassen: 


ASC(A$) liefert die Zahl, die dem ersten Zeichen des Strings A$ entspricht. 
CHR$(N) liefert für eine Zahl N zwischen ® und 127 das entsprechende ASCII- 


Zeichen. 

Beispiele: 
?ASC(”1A“) zeigt auf dem Bildschirm den Code der Ziffer 1, und das ist 49. 
?CHR$ (81) zeigt auf dem Bildschirm ein Q. o 


13.2 Zahlenumwandlung 


In Berechnungen mit gewöhnlichen Variablen arbeitet Ihr Rechner intern mit seiner Stan- 
dard-Zahlendarstellung. Veranlassen Sie ihn, auf dem Bildschirm eine Zahl auszugeben, 
wandelt er die interne Form in eine Zeichenfolge um und zeigt diese an. Dabei können 
neben den Ziffern, dem Buchstaben E und dem Punkt noch das Plus- und Minuszeichen 
sowie Leerstellen auftreten. Mit Hilfe einer Funktion kann die gleiche Umwandlung einer 
Zahl in einen String auch im Programm durchgeführt werden 


| STR$(A) wandelt den Wert des arithmetischen Ausdrucks A in einen String um. 


Beispiel: 

Nach AS = STR$(r) steht auf A$ der 11-stellige String ” 3.14159265‘“. o 
Entsprechend wird verfahren, wenn die STR$-Funktion mit einem Integer-Argument auf- 
gerufen wird, nur ist dabei der Zahlbereich deutlich kleiner. 

Zu STR$ existiert auch eine Umkehrfunktion: 


VAL(S$) wandelt den Anfang des Strings S$ in eine Zahl um, soweit er umwandel- 
bar ist. 

Beginnt der String mit einem in Zahlen unzulässigen Zeichen, wird der Wert ® ge- 
liefert. 


Beispiel: 
VAL (”17/2°) hat den Wert 17. o 


Zulässig sind höchstens die im ersten Absatz dieses Abschnitts aufgeführten Zeichen. Als 
Basis für die Umwandlung wird eine Folge zulässiger Zeichen aber nur soweit genutzt, wie 
sie als Zahldarstellung sinnvoll ist. So wird der String z.B. spätestens vom zweiten E ab 
ignoriert. 


13.3 Stringverarbeitung 


Neben den bisher erörterten Umwandlungen von Zahlen in Strings und umgekehrt gestat- 
tet com-BASIC auch die Stringverarbeitung in einem mehr wörtlichen Sinn. Man kann 
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Strings zu einem gemeinsamen String vereinigen oder einen beliebigen zusammenhängen- 
den Teil eines Strings (als Kopie) herausgreifen. 


AS + B$ bildet einen String, der in dieser Reihenfolge die Zeichen des Strings A$ 
und die aus B$ enthält. 


Beispiel: 
Mit G$ =’GERECHT“:M$ ="’MUND“:S$ = M$ + G$ ergibt sich auf S$ der String 
"MUNDGERECHT“. 


Wenn wir hier das gewöhnliche Additionssymbol wiederfinden, heißt das natürlich keines- 
falls, daß eine Zahl zu einem String addiert werden könnte. Ebenso unsinnig wäre, Strings 
mit einem der anderen arithmetischen Operatoren zu verknüpfen. 

Um einen Teil aus einem String herauszugreifen, muß man angeben, wieviel Zeichen über- 
tragen werden sollen und wo diese Zeichengruppe im Ausgangsstring liegt. Drei Funktio- 
nen stehen zur Verfügung: 


LEFT$(S$, N) liefert die ersten N Zeichen des Strings S$. 
MID$ (S$, M, N) liefert die beim M-ten Zeichen beginnende Gruppe von N Zeichen 
aus dem String 58. 
RIGHT$(S$, N) liefert die letzten N Zeichen des Strings S$. 
N ist eine Zahl zwischen ® und 255, M zwischen 1 und 255. 
Beispiele: 
Mit AZ8 = "ANNABELLA“ erhält man 
»ANNA“ durch LEFTS(AZ$, 4) 
"NABEL“ durch MID$(AZ$, 3, 5) und 
"ELLA“ durch RIGHTS(AZ$, 4) . 


Die Positionierung des herauszulösenden Teilstrings erfolgt stets in der eben erklärten Form. 
Falls dann nicht mehr N Zeichen verfügbar sind, wird der Ergebnisstring entsprechend ver- 
kürzt. Diese Situation kann vom Programm erkannt werden; denn es existiert eine Funk- 
tion, die die Anzahl der Zeichen eines Strings ermittelt, 


| LEN (S$) liefert die Länge des Strings S$ 


ASC (S$) Beispiel: 





CHR$(N) Mit dem obigen AZ$ trägt LEN (AZ$) den Wert 9. 
LEFT$(S$,N) eo 
LEN (S$) 
MID$(S$,M, N) Eine Zusammenstellung der zur Textverarbeitung 
RIGHT$(S$, N) verfügbaren Funktionen zeigt Bild 13.1. 
STR$(A) 
VAL(S$) 

S$ ist ein String 

M liegt zwischen 1 und 255 Bild 13.1 

N liegt zwischen ® und 255 Stringfunktionen 
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13.4 Aufgaben 


13-1 Eine Zahl wird auf dem Bildschirm in halblogarithmischer Form ausgegeben, wenn 
Ihr Betrag gewisse Grenzen unter- bzw. überschreitet. Wie können Sie ohne Benut- 
zung dieser Grenzen erreichen, daß dann in der Mantisse stets genau 3 Stellen hinter 
dem Dezimalpunkt stehen? 


13-2 Schreiben Sie ein Programm, das einen String liest und die darin enthaltenen ver- 
schiedenen Zeichen je einmal auf dem Bildschirm ausgibt. Die Zeichen sollen fort- 
laufend nebeneinander stehen. 


13-3 Ändern Sie das Programm für Aufgabe 13-2 so ab, daß die Zeichen aufsteigend sor- 
tiert ausgegeben werden. 
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Wie in den vorangegangenen Kapiteln wird auch hier in erster Linie das Ziel verfolgt, den 
Leser zur Entwicklung eigener Programme zu befähigen. Im Vordergrund steht der De- 
monstrationswert und nicht die vielseitige Verwendbarkeit der Programme. Dennoch wur- 
den diese so aufbereitet, daß sie unmittelbar benutzt werden können. 


Bei der Auswahl der Beispiele wurde darauf geachtet, daß Problem und Lösungsweg auch 
ohne viel Fachwissen aus dem jeweiligen Anwendungsgebiet verstanden werden können. 
Daher sollten Sie nach Möglichkeit alle Beispiele durcharbeiten und sich nicht auf Ihr 
Fachgebiet beschränken. 


14.1 Lineare Interpolation 


Problem: In einem (X, Y)-Koordinatensystem sollen N Punkte (X;, Y;), 1Si< N gege- 
ben sein mit aufsteigenden X-Werten. Benachbarte Punkte sollen durch eine Strecke ver- 
bunden und die Randstrecken als Halbgeraden herausgezogen werden (s. Bild 14.1). Aus 
diesem Linienzug ist für beliebige Argumente X der zugehörige Funktionswert zu ermit- 
teln. 


Dieses Problem stellt sich z.B., wenn mit tabellierten Funktionen gearbeitet wird. Auch 
für die Auswertung von Meßreihen ist die lineare Interpolation oft ausreichend. Dagegen 
darf die verabredete Extrapolation in Form der Halbgeraden in Anwendungsfällen nur be- 
nutzt werden, wenn die durch den Linienzug angenäherte Funktion tatsächlich ein ent- 
sprechendes asymptotisches Verhalten zeigt. 

Programme sind selten auf Anhieb fehlerfrei. Vielmehr decken systematische Programm- 
tests gewöhnlich nach und nach die Lücken auf. Im Laufe der Zeit entsteht eine Ahnen- 
kette von Programmen, die immer leistungsfähiger werden (sollten). Wir wollen an diesem 
Beispiel zeigen, wie die verschiedenen Entwicklungsstufen aussehen könnten. 


Lösungsweg: Zuerst werden die N Punkte eingegeben und danach in einer unendlichen 
Schleife immer abwechselnd ein Argument X gelesen, das zugehörige Y berechnet und X 
und Y ausgegeben. Um Y berechnen zu können, müssen wir im Regelfall den Index K be- 
stimmen, für den X(K)>X, aber X(K - 1) <X ist. Aus der 2-Punkt-Form der Geraden- 
gleichung erhalten wir dann 


XTXK-ı 


YSGxKk Yk-ı FR NK- NN KG, 


Bild 14.1, Version a, zeigt einen ersten Entwurf für einen entsprechenden Ablaufplan. 
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———— 


Eingabe: 
x 









_ | s.Abschnitt 
__ B Abschnitt 141 


14.1 
Ausgabe: Ausgabe: 
xX,Y xX,Y 


Bild 14.1 Prinzipskizze und Ablaufpläne für die lineare Interpolation 
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Bei der Ausführung des Programms wird in der Regel auf dem Ja-Ast aus der Schleife her- 
ausgesprungen. Der BASIC-Interpreter stößt dann beim nächsten Durchgang wieder auf 
‘den Schleifenanfang, ohne zuvor die alte Schleife geschlossen zu haben. Das ist zwar nicht 
grundsätzlich störend, kann aber mit dem in Bild 14.1, Version b, gezeigten Ablauf leicht 
vermieden werden. 


Der Ablaufplan, Version b, erfüllt die eingangs gestellten Forderungen nocht nicht ganz. 
Versuchen Sie, die verbliebenen Schwachstellen bzw. die Fehler selbständig herauszufin- 
den. Ohne bei der weiter unten angegebenen Lösung nachzusehen, sollten Sie den Plan b 
in ein BASIC-Programm übertragen und dieses mit einfachen Testdaten überprüfen. Dabei 
werden sich fast immer die richtigen Werte ergeben, falls Sie bei der Codierung keine Feh- 
ler begangen haben. 


Ihr Test sollte als Ergebnis bringen, daß im angegebenen Ablaufplan die Fälle X < X (1) 
und X >X{N) falsch behandelt werden. Gilt X < X (1), wird in der Interpolationsformel 
mit den Indizes ® und 1 gearbeitet, beabsichtigt waren aber 1 und 2. Für X>X(N) wird 
die Formel gar nicht erreicht, so daß der alte Y-Wert noch einmal erscheint. Gefordert war 
hingegen die Berechnung mittels der Indexwerte N-1 und N. 


Nun gilt es, mit möglichst wenig Aufwand die erkannten Fehler zu beseitigen. Da für 
X<X(1) und X zwischen X(1) und X (2) beide Male mit dem Indexpaar 1 und 2 gerech- 
net werden soll, erübrigt sich der Vergleich von X mit X (1). Daher lassen wir die Schleife 
erst mit K = 2 beginnen. Entsprechend müssen wir verhindern, daß der Vergleich von X 
mit X (N) Konsequenzen hat, was durch die Erweiterung der Abfrage auf „X (K) < X und 
K<.N" gelingt. Diese Bedingung ist für K = N nicht erfüllt, so daß in diesem Fall 

(X (N - 1) <X) mit den Indexwerten N - 1 und N interpoliert wird. Schließlich sollten 
unsinnige Werte von N, d.h. N < 2, zurückgewiesen werden. Wenn Sie Ihr Programm ent- 
sprechend abändern, müßte es weitgehend mit der Lösung aus Bild 14.2 übereinstimmen. 


READY. 


id REM *%%# LINEARE INTERFOLATION ek 
2& REM PUNKTWEISE GEGEBENER FUNKTIONEN 

39 REM 

39 REM FUNKTION EINGEBEN 

1a INPUT "ANZAHL" ;N I 

118 IF N<2 THEN FRINT "ZU KLEIN“ :GOTOLAG 

120 DIM NUNd.FCh _ 

134 PRINT "PUNKTE EINGEBEN, % WACHSEND" 

140 FOR Kl TON 

150 INPUT TTIRCKI TER). 

150 IF K=1 OR KCKIDRKK-1> THEN_ 180 

17% PRINT "X-WERT ZU KLEIN. ABGELEHNT“ K=k-1 
180 NEXT 

266 REM ARGUMENT EINGEBEN. FU.-WERT BERECHNEN 
218 INPUT "ARGUMENT" IX 

228 FÜR K=2 TO N 





238 IF ZCKSK AHD EXN THENZEO Ko-xek=i3 Bild 14.2 

Die ECK DHDPERI-TEK- DI BESCH-NIE- LI D/IHCROTSCK- 1 on 

ER Mal LIHÜFEKI-TERTDINRENTNCKTI Programm für lineare 
2E9 NEHT Interpolation 


Era PRIHT "uz » 3 Er 3 = a x nn 
zga GOTO z1 
RERDT. 
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14.2 Arcustangens 


Problem: Für einen beliebigen Punkt P der (X, Y)-Ebene ist der Winkel zwischen der Strek- 
ke von P zum Ursprung und der positiven X-Achse zu ermitteln. P soll durch seine Koor- 
dinaten, X und Y, gegeben sein. 


Möglicherweise erinnern Sie sich an die Funktion ATN, die ja zu einem bekannten Tan- 
genswert den zugehörigen Winkel im Bogenmaß liefert. Mit dem Aufruf ATN (Y/X) scheint 
unser Problem gelöst. Da aber die Quotienten (- Y)/(- X) und Y/X den gleichen Wert ha- 
ben, liefert die ATN-Funktion für den Punkt (X, Y) den gleichen Winkel wie z.B. für den 
Punkt (-X, - Y), während sich in Wirklichkeit die beiden Richtungen um den Winkel m 
unterscheiden. 

Die Lösung soll als Unterprogramm formuliert werden, damit sie unmittelbar in anderen 
Programmen verwendet werden kann. 


Lösungsweg: Das Unterprogramm ist nur in Verbindung mit einem Hauptprogramm 
(MAIN) ausführbar. Deshalb müssen wir dieses zusätzlich erstellen und dort alles erledigen, 
was über den geforderten Leistungsumfang des Unterprogramms hinausgeht. Dazu zählt in 
erster Linie der Datenaustausch mit dem Benutzer. Daneben lassen wir die Ergebnisse noch 
von Bogen- in Gradmaß umrechnen, was manchem die Ergebniskontrolle erleichtern wird. 
Nun zum Unterprogramm. Als Eingänge verwenden wir die Variablen X und Y, das Ergeb- 
nis steht auf A. Dem unsinnigen Fall X = Y = ® schenken wir keine Beachtung, so daß drei 
Fälle zu behandeln sind. Das soll so geschehen, daß die Ergebnisse in das Intervall (- r,r] 
fallen. Dabei ist übliche Konvention, positive Winkel entgegen dem Uhrzeigersinn und ne- 
gative im Uhrzeigersinn aufzutragen. 

X#$ und Y=B. Bei positivem X liefert ATN den richtigen Wert, während bei negati- 
ven X um z korrigiert werden muß. Um das obige Intervall zu treffen, koppeln wir diese 
Korrektur an das Vorzeichen von Y. 

Y=ß. Je nach Vorzeichen von X muß sich als Ergebnis ® oder r ergeben, was mit Hilfe 
der SGN-Funktion einfach codiert werden kann. 


X =®. Je nach Vorzeichen von Y muß sich n/2 oder - n/2 ergeben, was wiederum mit 
Hilfe der SGN-Funktion codiert wird. 


Bild 14.3 zeigt u.a. das entsprechende Unterprogramm, das in allen Anwendungen benutzt 
werden sollte, in denen zwischen einer Richtung und der Gegenrichtung unterschieden wer- 
den muß. 


14.3 Integralberechnung nach Romberg 
b 
Problem: Das bestimmte Integral I = [ f{x)dx soll numerisch berechnet werden. Da I als 


a 
Flächeninhalt interpretiert werden kanrı, lassen sich zur Berechnung des Integrals Verfah- 
ren verwenden, mit denen ein solcher Inhalt näherungsweise bestimmt wird. 
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RERDT 
ı22 REM TEST-NAIN F. BRCTAN 
112 INPUT. NS. 
120 GOSUE 1308 
122 FRINT "WINKEL IN GERADE" REISR RT 
143 GOTO 118 
Acc REM E% in ARLTAN EEE 
isiG REM EIN: msn] 
195 je *m: SOTHESE 
1959 IF Sa THEN ASfrägnerdke 
ibesa RETURN 
RE . 
Bild 14.3 Arcustangens-Programm 
vh 
f(x} 
f(x) 
YK-ı YK 
= > 
a=X Xı % ... Xn-2 Xn-ı Xn=b X XK-1  XK 


Bild 14.4 Sehnentrapezverfahren zur Integralberechnung 


Beim Sehnentrapezverfahren wird das Intervall in n Streifen zerlegt und die Funktion f(x) 
auf jedem Streifen durch eine Sehne ersetzt, die durch die Ordinaten an den Intervallenden 
läuft (s. Bild 14.4). Aus programmtechnischen Gründen verwendet man Streifen gleicher 
Breite h = (b -a)/n und erhält als Näherungswert $ für das Integral 


_, [fla) + flo) "S ) 

Sh = NUEBEEL + 2 f(a + ih) 
i=1 

Aus S, und Spj2 läßt sich nach einer Idee von Romberg (Fehlerbetrachtung mittels Taylor- 

reihen) die bessere Näherung 


_ 4Sn72 = Sn 

h/2 3 
gewinnen. Nach weiterer Verfeinerung kann man auch diese Verbesserungen weiter ver- 
vollkommnen. Für die nächste Stufe gilt 


1) RU) 
RO) - 16R, ,4 = Ruy2 


h/a 15 
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Bild 14.5 
Ablaufplan zur Integralberechnung 
nach Romberg 





H=(B-A)/N 
X=A+H 
HH = 2*H 
NN = N/2 






Funktions- 
wertsumme 
aktualisieren 





_ RF*SS - RÜ) Romberg- 
RF-1 =! verbesserungen 
berechnen 














b) 
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F{X) definieren 


Ein: A,B,N 


=9 
= (F{A) + F(B))/2 
N=N-1 


H=(B-A)/N 
X=A+H 
HH=H 





RF=RF*4 


yRF*SS- RU) 
RF-1 

RU)=SS 

ss=T 
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Wir wollen das Programm so aufbauen, daß der Benutzer jeweils entscheidet, ob ein wei- 
terer Durchlauf erfolgen soll. 


Lösungsweg: Die zu integrierende Funktion — hier 1 + sinx — schreiben wir als Funktions- 
unterprogramm und sprechen die Funktion dann nur über ihren Namen an. Dadurch wird 
das mathematische Verfahren klar von der zu behandelnden Funktion abgegrenzt, so daß 
die Umstellung des Programms auf eine andere Funktion praktisch kein Risiko bedeutet. 
Die Grenzen a und b sowie die Streifenzahl n für den ersten Durchlauf lesen wir ein. 


Im Berechnungsteil sollten wir beachten, daß nach einer Verfeinerung der Teilung durch 
die Halbierung der Streifenbreite (bzw. Verdoppelung der Streifenzahl) in der Funktions- 
wertsumme der Sehnentrapezformel alle alten Argumente wieder auftreten: Hinzu kom- 
men die Mitten der bisherigen Streifen. Daher beschränken wir den Funktionsaufruf je- 
weils auf die neuen Argumente. 

Der erste Durchgang stellt also einen Sonderfall dar. Deshalb ignorieren wir ihn vorerst und 
stellen uns auf den Standpunkt, es seien schon K Durchgänge erfolgt (K > 1). Die Funk- 
tionswertsumme nach dem letzten Durchgang soll auf S stehen, die letzte Sehnentrapez- 
näherung auf R(1) und die Rombergverbesserungen auf R (2), ... R(K). Verstehen wir un- 
ter N die Streifenzahl für den aktuellen Durchgang, erhalten wir den in Bild 14.5, Version a 
dargestellten Ablaufplanentwurf. 


’ 


READY, 


10 REM #3 INTEGRALBERECHNUHNG NACH ROMEERG Ki 
28 REM 

38 DEFFNFÜND=1+3SINGH> REM INDIVIDUELL SETZEH 
46 REM 

ia FRINT "IIREHZEH A UND E EINGEBEN" 

118 INPUT"A.R "A.E 

126 INPUT"ERSTE STREIFENAHERAHL "IN 

ı20 IF NCI THEHI2O 

140 K=ü :HN=N-1 :3={FNFÜRD+FNFEBNDRO.S 

156 HecB-AyN :=f+H HH=H IF Ka THENHH=EHHH SHN=NFE 
ieg IF NHX<L THENZER 

17& FOR I=1 TÜ HN 

150 S=3+FHFÜR> I5=5+HH 

122 HEAT 

zog 35=5#H 

zı0 PRINT:FEINT "SEHNENTEAPEE-HERT=": 

zea IF K=5 THENSOO 

23a FF=1 

san FÜR I=1 TÜK 








eb 
ag K=K+1 :RiK)=33 
1& FRINT SS SFRINT 


aca INPUT"VERFEINERN? IAFUER ZEICHEN 7 EINGEBEN ":T$ 
aaa IF LEFTECIELNCH"T" THEN ENI 

24a N=3#H 

350 IF E=18 THEN E=k-1 

362 GOTO1I8 


Bild 14.6 Integralberechnung nach Romberg 
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Jetzt sehen wir uns an, wo dieser Entwurf für den ersten Durchgang modifiziert werden 
muß. Wir überspringen die Berechnung der Rombergverbesserungen. Für die Berechnung 
der Funktionswertsumme müssen wir NN und HH so setzen, daß alle zwischen A und B 
liegenden Teilungspunkte erfaßt werden. Schließlich müssen noch die Eingabe von A, B 
und N ergänzt und Startwerte für K und S gesetzt werden. Damit ergibt sich der Plan aus 
Bild 14.5, Version b. Die Codierung dieses Plans finden Sie in Bild 14.6, wobei die Ein- 
und Ausgabe noch benutzerfreundlich aufbereitet wurde. 


14.4 Gemeinsamer Geburtstag 


Problem: In einer Menge von 367 Personen befinden sich mit Sicherheit zwei, die ihren 
Geburtstag am selben Tag feiern. Wenn Sie nun zufällig zusammengesetzte Personengrup- 
pen nach Geburtsmonat und -tag befragen, finden Sie ein Paar, das gemeinsam feiern könn- 
te, oft schon nach relativ wenigen Interviews. Dieses statistische Phänomen wird hier in 
der Form eines Ein-Personen-Spiels vorgestellt. 


Lösungsweg: Die Befragung wird mit Hilfe des Zufallszahlengenerators simuliert. Er liefert 
zuerst eine Zahl aus dem Intervall [1, 12], die als Monat angesehen wird. In Abhängigkeit 
davon wird das Intervall für die Tage festgelegt, also [1, 29], [1, 30] oder [1, 31] und dar- 
aus eine Zufallszahl ermittelt. Falls dieses Zahlenpaar schon einmal vorkam, wird die Be- 
fragung beendet, andernfalls wird es gespeichert und der nächste Geburtstag erfragt. 

Zu Ihrer Information werden alle Befragungsergebnisse angezeigt. Zuvor werden die Zah- 
len in einem Unterprogramm in Strings mit 2 Zeichen umgewandelt. Dadurch läßt sich 
auch mit dem Semikolon als Listentrennzeichen die Ausgabe spaltentreu aufbauen. Das 
Programm zeigt Ihnen Bild 14.7. 

Die Erklärung für die meist erstaunlich kleine Zahl zu befragender Personen setzt Kennt- 
nisse in Wahrscheinlichkeitsrechnung voraus. Wir wollen hier nicht darauf eingehen und 
verweisen den interessierten Leser auf die entsprechende Fachliteratur. 


14.5 Wurf auf ein Tor 


Problem: In einer Halle soll ein (punktförmiger) Ball in einem Bogen direkt in ein Tor ge- 
worfen werden. Die Breite des Tores bleibt außer Betracht. Auch die Luftreibung wird 
vernachlässigt. 

Das Programm ist als 1-Personen-Spiel formuliert, mit dem Sie Ihr Gespür für die Bewe- 
gung im Schwerkraftfeld der Erde prüfen. Sie müssen einzelne der 6 Parameter variieren, 
bis das Tor erzielt ist. 

Das Programm ist so geschrieben, daß Sie bei jedem Durchlauf beliebige der alten Parame- 
ter übernehmen können und nur eingeben müssen, was Sie ändern wollen. Derartige For- 
derungen treten in vielen Anwendungsproblemen auf, so daß Sie sich die Programmierung 
des Eingabedialogs ansehen sollten. 
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READY. 


19 REM #&%* GEMEINSAMER GERURTSTAG Fock 
20 REM 

56 DATAS1.23.21.28:.31,3 
&8 DIM TGil2).Me3seh. Te3se: 

a FOR K=1 TÜ 12:RERD Tock> NEST 

190 FRINT"TBeRk GEMEINSAMER GEBURTSTAG #%#" :PRIHTIPRIHNT 
118 FRINT"ZUFRELLIG AUSGEWAEHLTE PERSONEN SOLLEN" 

129 PRINT"HACH IHREM GEBURTSTAG © TAG. MONAT BE=" 

126 PRINT"FRAGT WERDEN, EIS EIM FAAR MIT GLEICHEN" 

142 FRINT"GEBURTSTAG GEFUNDEN MIRD." 

159 PRINT"SCHAETZEN SIE IIE ERFORDERLICHE AHZAHL." 

158 FRINT:PRINT"IER RECHHER SIMULIERT IIE BEFRAGUNG UND“ 
FRINT"BERECHHET DIE GUETE IHRES SCHRETEWERTES. " "FRINT 
A INFUT"WIEWIEL FERSCHEN HIFI ER FRAGEN"; 

ia IF Wo THENZAO 

220 PRINT"TUMFRAGE-ERGEENTS:"SFRIMT 

Sag N=0 

248 M=1+IHTUOIS#ENDETI2O 

25& T=1+INTETGEMBERHDETISS 

253 H=T :GOSUBEOG :FRINT HE:".": 

256 H=N:GOSUBERE :FRINT HE". 

zea IF H=G THENSOH 

zr& FÜR K=l TON 

ze IF M=Mikb ANDT=STCR: THEN4OG 

2396 NE= 

aa H=H+1 

31a MiN)=M 

3eg TCH?=T 

23a GOTOS4E 

430 N=N+1 

415 PRIHNT:FRINT:PRINT"NR" SH "UND NR":K 

428 PRINT"HABEH GEMEINSAM GEBURTSTAG, " 

436 FRIHT"SIE HATTEN” :W; "PERSONEN WORGEGEBEN" 

442 IF V=HTHEHSOR 

450 YN=RESCY-ND OS PRINT"FEHLER:"OVSS "PERSONEN BEH.": 
4Esa PRINT INTCEBRRUNFOHNDDG EN" 

378 GOTOSIE 

sag FRINT"IHRE YORHERSÄAGE AR ALSO RICHTIG" 

lg PRINT 

s2a INFUT"GEBEN SIE E ODER MH EIN. SENDE FEN WEITERS"SHE 
S3a IF H$="W" THEN1EG 

540 IF H$="E" THEH END 

Se GOTOSEE 

Ssa@ INFUT" 

Sag HS=STRFCH) 

Ele HI=LEHCHEI-1 

Ece HE=RIGHTSCHE.HI: 

esg IFHILSSTHENHE=" "+H$ 

ed RETURH 

rag EHD 


21.20. 31.30. 31 


















Bild 14.7 Gemeinsamer Geburtstag 
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Lösungsweg: Eine Prinzipskizze finden Sie in Bild 14.8. Aus dem Abwurfwinkel A und 
der Abwurfgeschwindigkeit V erhält man die Geschwindigkeitskomponenten in x- und 
y-Richtung: 


V.=Vcos(A), V„=V sin (A) 


Mit der Erdbeschleunigung g und der Zeit t als Parameter gelten die Bewegungsgesetze 


2 


t 
X = Vt, y=HA+ Vyt- 


bzw. nach Entfernung von t 
Vy g 
=HA+—X-——x? 
y Veo2v2 
Das ist eine nach unten geöffnete Parabel, deren Scheitelpunkt bei 
V,Vv v2 
XM=——, YM=HA+— 
8 2g 
liegt. Der Funktionswert beix =L ist 
Vy 8 
L=HA+—-L-—-L? 
Y v2 


Die Stelle eines eventuellen Kontaktes mit dem Hallendach erhalten wir aus der kleineren 
Lösung von y=HH als 


_Vx 2 
XD =—[v,-/V2 -2g(HH -HA)}. 

















- 
we 


- + 


Bild 14.8 Wurf, Prinzipskizze 











14.5 Wurf auf ein Tor 9] 








Bei der größeren Lösung von Y = ® trifft der Ball auf den Boden: 
_Yx 2 
XB=7 V+vVy +2gHA 


In Bild 14.9, Teil a, finden Sie einen groben Ablaufplan für das Torwurfprogramm. Im 
Eingabeteil soll der Benutzer jeweils gefragt werden, ob er einen Parameter übernehmen 
oder einen neuen Wert eingeben will. Im ersten Fall soll er ein nichtnumerisches Zeichen 
und sonst sofort den Wert eingeben. 


Eingabe und Kontroile von 

HH,L,HT,HA,V,A 
I 

Anzahl N der Durchläufe 

zählen. Nach Umwandlung 

auf Meter und Bogenmaß 

Berechnung von 

VX,VY,XM,YM,YL,XD,XB 
















Start: LESEN 


















[sun ggf. in 


“| Zahl umwandeln 























- -| Keine Zahl 
eingegeben 
Ausgabe einer von K Bild 14.9 
abhängigen Meldung ji 
und des Wertes von H Grober Ablaufplan für das 








| Torwurfproblem 
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Da vom Programm nicht vorhersehbar ist, ob eine Zahl kommt, wird auf eine Stringva- 
riable gelesen und in einem Unterprogramm analysiert, ob eine Zahl (erstes Zeichen eine 
Ziffer, Plus, Minus oder Punkt) oder sonstige Zeichen eingegeben wurden. Den Ablauf- 
plan für dieses Unterprogramm zeigt Bild 14.9, Teil b. 

Im Programm, Bild 14.10, ist als Schutz gegen eine Division durch ® für V der Startwert 1 
aufgenommen. Außerdem werden folgende Bedingungen abgeprüft: 


0 <HH 
Ö<L 
Ö <HTSHH 
0 <HASHH 
d<V 
-M<A<M falls dB <HA 
bzw. ÖD<A<90 falls B =HA 


14.6 Einfache Stücklistenauflösung 


Problem: In vielen Bereichen unseres Wirtschaftstebens werden Stücklisten benötigt. Soll 
beispielsweise geprüft werden, ob der Lagerbestand an Einzelteilen ausreicht zur Fertigung 
verschiedener Baugruppen mit individueller Stückzahl, müssen die Stücklisten der fragli- 
chen Baugruppen aufgelöst werden. In der Stückliste einer Baugruppe steht, aus welchen 
Bauteilen die Gruppe unmittelbar zusammengesetzt ist. Ein Bauteil kann Einzelteil oder 
wieder Baugruppe sein. Für diese Baugruppe wäre dann ihre Stückliste heranzuziehen, 
falls diese erneut Baugruppen ausweist, auch noch deren Stücklisten usw., bis in der ge- 
samten Auflösung nur noch Einzelteile auftreten. 


Stücklisten sehen im Prinzip wie folgt aus: 


Gruppe H enthält Teil D Imal 
Gruppe K enthält Teil H 3mal und Teil P 4mal 
Gruppe P enthält TeilH 6mal und Teil V 3mal 


Normalerweise werden diese Daten in einer separaten Datei gespeichert. Um hier den Auf- 
wand zu begrenzen, verzichten wir auf diese Datei und benutzen dafür DATA-Anweisun- 
gen. 

Mit zunehmender Größe eines Programms ist bei dessen Formulierung auch auf eine klare 
Struktur zu achten. Hierarchisch angeordnete Unterprogramme, wie sie hier verwendet 
werden, sind ein Weg zur Erhöhung der Transparenz. 


Lösungsweg: Zunächst legen wir die Struktur der Stücklisten-,‚Datei‘‘ fest. Jeder Satz soll 

3 Angaben enthalten: Name der Baugruppe; Name eines darin enthaltenen Bauteils; An- 
zahl, wie oft dieses Bauteil auftritt. Die Sätze müssen nach dem Gruppennamen aufstei- 
gend sortiert sein. Das Dateiende wird durch einen Satz markiert, dessen Gruppen- und 
Teilname jeweils das Fragezeichen sind. Diese Markierung wurde gewählt, weil bei ‚echten‘ 
Sätzen Gruppen- und Teilname von der Sache her nicht gleich sein können und weil das 
erste Zeichen (Buchstabe oder Ziffer) jedes ‚echten‘ Namens bei der angesprochenen Sor- 
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READY. 


REM #% WURF AUF EIN TOR IN EINER HALLE 36 
3,81 
33="TODORI" :TEXL3="ZU KURZ!" STERDIS"ZU WEITE" STEEBDE"ZU HOCH!" 
Bu 30 a et, 44 z LICH" 
U$C1)="BODENKONTAKT NACH" :V$Ü1>="METERN" 
{2)="HOEHE AM TOR MAR" © "METER" 
53 [£C3)="DECKENKONTAKT NACH" N$025="METERN" 
100 REM #%% EINGABE-DIALOG. PRÜEFUNG 3% 
116 PRINT:PRINT:FRINT" — *%%_TÜRWURF d6k" 
115 PRINT "ZAHLEN EINGEBEN ODER > <KEINE KÖRR. >" 
IF K=@ THEN N=6 :REM ZAEHLER NEUTRALTSTEREN 
28 IF Y=5_THEN Yei 
SG PRINT:PRINT"HALLENHOEHE _ EMI:"HH;" KORR."; SGOSURZEB :IF K=1 THENIAE 
IF 0<& THEN PRINT "ZU KLEIN" :GOTO12G 
HH=& IF HHSHT THEN HT=HH 
5 IF HHCHA_THEN HA=HH 
a PRINT"TOR-ABSTAND IMIS"L5" KORR.": SGOSUBERG "IF K=1 THEN1S® 
IF @ca THEN PRINT "zu KLEIN" GOTO14G 


BRINT"TORHOEHE [MI:SHT5"  KORR.": SG0Sugzc@ :IF K=1 THEH jed 
* IF @<8 THEH FRIHT "ZU KLEIN" :GOTC1SE 

IF ESHH THEH FRINT "ZU GROSS" :GOTO1S8 

HT=ü 

Ga FRINT"REHURFHOEHE EMT"SHR:®  KORR."I SGOSUBSBR IF K=1 THEM 170 
" IF {8 THEH FRIHT "ZU KLEIN” ‚SOTOIE® 

IF S>HH THEN FRINT "ZU GRÜS2" :G0T01658 

, HA=ü 

a PRIHT"REBLGESCHW. [ENEHT YO KORB." SoDEUgza8 IF k=1 THEN 180 
: IF ü=i THEH PREIHT "ZU KLEIN” :GOTOIre 

Wfl 

=# FRIHT"REW.MINKEL LGRADI:"iR:"  KORR."; SGUSUEZeG IF K=1 THENIFO 
S= IF ücd=-36 THEN FRIHT "ZU KLEIN" :50TO1S8 



























IF HA=a AND GC THEN FRINT "ZU KLEIN" :G0T0138 
SE IF Go=@a THEN FRINT "ZU GROSS" :GOTO138 
Pat A=& 


30 GÜTIZagR 
REM #%* LP LESEN #%6%* 
k=@ : INPUT DE :0=VALINE) 

IF [>68 THEN RETURH 
LF=LEFTEIOF. 15 

IF Ls="a" OR L#="+" OR L$="-" OR Lf="." THEH RETURN 
k=1 RETURN 
3 REM #*%* RECHNEN Wk 
N=N+1 REM ZAEHLT VERSUCHE BIS Zum ERFOLG 

zn 130 TUNSUYRLOSIENFIE UPZWESINCEN/ FE 
EM TFO TL= HE+LAKV SER NE Pr Dr vo) 

IF B<kM AND SMÄL THENE2S 

IF YLSHH THENI4E 
GOTO24S 

IF HAFTEN ERG)I=HH THENS4S 
K=3 Hawk i EOFTI-ERGECHH-HAND: :GOTOSEO 

IF FL>HT THEN E=2 :H=rL :GOTOISO 

IF YL<@ THEN Kal HARFOR ON HSOR OÖ FTZHIHGEHRND :GOTO2SE 
k=& :H=H 
FRINT: FEINT TFiK> PRINT UFCENSHNVECE) 

SPa GOTOIEG 
READY. 








Bild 14.10 Torwurf-Programm 
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tierung vor dem Fragezeichen rangiert. Folgende Sätze bilden dann die Datei mit den 3 oben 
genannten Stücklisten: 


Dieses ist nicht die einzig mögliche Reihenfolge. So dürften z.B. die beiden zur Baugrup- 
pe K gehörenden Sätze vertauscht werden. Schließlich sei betont, daß bei einer eventuel- 
len Aufnahme weitere Sätze in jedem Fall der Stücklisten-Charakter erhalten bleiben muß. 
Zyklen wie z.B. Teil A enthält Teil B, Teil B enthält Teil C, Teil C enthält Teil A, sind un- 
sinnig. 

Schon bei der Vorstellung des Problems haben wir dargelegt, daß die Auflösung ein mehr- 
stufiger Prozeß ist. Bei jedem Durchgang können neue Gruppen auftreten, die ihrerseits 
beim nächsten aufgelöst werden. Dieser Prozeß endet aber, wenn die Datei korrekt, d.h. 
zyklenfrei ist. 


Den aktuellen Stand der Auflösung halten wir in 3 Arrays fest, die wir im weiteren als 
„die Tabelle‘ bezeichnen: 


AA$ Name des Bauteils 
AM Anzahl, wie oft das Bauteil auftritt 
AK Statuskennzahl für das Bauteil 


Im Eingabeteil werden Positionen in die Tabelle aufgenommen und als neu gekennzeich- 
net. Genauso wird im eigentlichen Auflösungsteil verfahren, wenn zu einer Position der 
Tabelle in der ‚‚Datei‘ eine Stückliste gefunden wurde. Bei den nicht auflösbaren Positio- 
nen wird ein Erledigungsvermerk eingetragen. 

Wenn das Auflösen bei mindestens einer Position erfolgreich war, ist ein neuer Durchgang 
erforderlich. Zuvor werden noch die erledigten Positionen gestrichen, die verbleibenden 
sortiert und gleichnamige zusammengefaßt. 


Wir wollen das Programm so aufbauen, daß jedes der Teilprobleme in einem separaten Un- 
terprogramm bearbeitet wird. Die Koordinierung wird vom Hauptprogramm vorgenom- 
men. In Bild 14.11 sehen Sie einen groben Ablaufplan für das Stücklistenauflösungspro- 
gramm, der zugleich die Struktur des Hauptprogramms darstellt. Hier muß nur noch dafür 
gesorgt werden, daß die „Datei‘‘ bei jedem Durchgang von ihrem Anfang an gelesen wird 
(RESTORE). 

Ablaufpläne für die wesentlichen Unterprogramme finden Sie in den Bildern 14.12 und 
14.13 und das BASIC-Programm in Bild 14.14. 


14.6 Einfache Stücklistenauflösung 


Eingabe: 

Anzahl und Namen der 
aufzulösenden Baugruppen 
lesen und in die Tabelle 
eintragen. 


l 














Aufrücken: 
Aufgelöste Baugruppen aus 
der Tabelle entfernen. 
Verbleibende Positionen 
nach vorn aufrücken. 











T Sortieren: Eu 


Die Tabelle wird nach 
Baugruppennamen 
aufsteigend sortiert. 


Raffen: 


Gleichnamige Positionen 
zusammenfassen. 
Verbleibende Positionen 
nach vorn aufrücken. 


Auflösen: 

Sofern dort vorhanden, 
aus der Stücklistendatei 
zu jeder alten Baugruppe 
der Tabelle die darin ent- 
haltenen Bauteile holen 
und in die Tabelle setzen. 














—_— 1) 


























wurde die 








Tabelle beim Auf- 
lösen Jänger 














Ausgabe: 
Aktuellen Tabellenstand 
als Ergebnis darstellen. 


Bild 14.11 Stücklistenauflösung, grober Ablaufplan 
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Start: AUFLOESEN 







Bild 14.12 
Auflösungsunterprogramm 















K2=K2+1 
AAS(K2) = U$ 
AM(K2) = UM*AM(K) 
AK(K2) = 9 
L=9 


























Return 
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Start: SORTIEREN 


u$ = AAg(1) 
UM = AM(1) 
UK = AK(1) 


L=1,K1-K 


O$ = AAS(L +1) 
OM = AM(L + 1) 
OK=AK(L+1) 


AAS(H) = AAS$(K) 
AM(H) = AM(K) 
AK(H) = AK(K) 


AAS(L) = 0% 
AM(L) = OM 
AK{L) =0K 
AA$(L+1)= U$ 
AM(L +1) = UM 
AK(L+1) = UK 





K=K1+1,K2 


AA$(H) = AA$(K) 
AM(H) = AM(K) 
AK(H) = AK(K) 

H=H#+1 











Bild 14.13 Aufbereitung der Arbeitsbereiche für die Stücklistenauflösung 
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REAL. 
14 REM 38% EINFACHE STUECKLISTEN-AUFLOESUNG 


il 


REM 
15 REM "STAMMDATEI" FUER TEST MIT DATA AHLEGEN 


1& REM 

45 DATA H,D.1 

sa DATA KH, Kf.4 
e8 DATA FH.e, FM. 


33 


DATA 7.7.0 


100 REM #4k MAIN K#* 

11@ DIM AAsCLER>. Mc 1aaı. AKCLEGN 

126 SOSUB290 

123 GOTO148 

134 GOSUESOE 

14@ GOSUF409 

Isa GOSUESE@ :FRINT TABCLZI:KLEVFOS."STIE 
1c6 GOSUESEE :RESTÜRE 

183 IF KZ>K1 THENISO 

17a GOSUEFEE 

126 END 

zuG REM ik LP EINGABE 6% 

285 FRINT "T" 

21a PRINT "GEMEINSAM AUFZULÜESENDE BRUGRUFFEN" :TAB(48>: "EINGEBEN" 
=15 FRINT "ALS ENDE DER EINGABE:";TABC4ERS"AHZAHL=E ‚BELIERIGE EAUGRUFPE" 
228 FRINT 

225 Kil=e :UK=d 

236 INFUT"ANZAHL, EAUTEIL ":UM.UF 

235 IF UMis THENZSO 

24a IF UM>@ THEN Ki=ki+l Sekt SGOSUBSZO GOTÜESA 
>5@ PRINT: PRIHT"AUFGELOEST WERDEN" :FRINT "ANZAHL". "BAUGRUFPE" 
285 IF Ki=8 THENZIR 

2658 FOR K=l TO K1:FRINT AMCK2.ARSCKD NEST 
27a RETURH 

3aG REM #3 UP AUFRUECKEN F# 

216 H=l 

z=2a FOR K=1 TO Kl 

225 IF AKCKD=B THENS4S 

zza IF K=H THEN248 

2335 K=K :r=H :G05SUB910 

24 H=H+1 

>45 NEXT 

266 FOR E=kl+rl TO EZ 

365 N=K :’r=H :GOSUESIE 

Sta H=H+l 

375 NEXT 

339 Ki=H-1 

29a RETUFH 

4ac REM #RRUF SORTIEREN ### 

465 IF KI<C2 THEN RETURH 

41a FÜR K=1 TO Kl#+l 

415 %=1 :GOSUB3SE 


FÜR L=1 TO KI-E 
s=L+1l :GOSUB3EE 


a IF Usi=os THEH GOSUBI4G : S0TO445 


Y=L :GOSUEPSG 
Y7=L+1 :GOSUBSSU 
HEHT 

NEHT 

FETURN 


3 REM #3 LIFFAFFEN 8%* 
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ld 
15 


Se 


zo 
De 


330 
325 


542 


345 


550 h 


555 
Ssso 
Sr 
[aeis] 
515 
20 
825 
530 
855 
54 
845 
55 
sre 
530 
aa 
718 
reB 
rad 
ga 
3004 
218 
22 
330 
248 
358 
356 
1116 
1111 
1115 
ilis 
1145 
1158 
1160 
1123 
z1a0 
READY 








IF K1X2 THEN FETURH 


"GOTISSE 


Ei=H 

RETUFH 

REM ##* UF AUFLOESEN 3% 

D=e& ’Kz=ekl 'L=l :Uk=6 

FÜR K=1 TO Ei 

IF Akikb=1 THENETE 

IF De THEN Dei :READ Or.UE.UM :IF Os=ur THEN Del 
IF D=2 THENGER 

IF OF<{AH$cE) THEN D=ea : 6070638 

IF O&=AAsiK) THEN Köeki4tl SUN=UMEANIE ek DÜSUBPZO 
AKCE=L !L=l 

HEKT 

RETUFH 

REM &#%* UP AUSGABE FE 

FRINT:FEIHT "ERGEENIS" 

FRINT "ANZAHL". "ERUTEIL" 








FOR E=1 TO KL:FRINT AMikD.ARFCED CHEST 
RETUFH 

REM 

AA$ET : Ach 

AA" Yyalg: AM =UM: Ak“ 

ARsCrS=0E AM =OHAKUFO 


Us=üs: UM=SOMUR=Ü 
U$=HAFiH)  UM=AP 
G$=AAsiR) OM=AM :Ok=F 
REM %## EINFACHE STUECKL 
REM 

REM "STAMMDATEI" FÜER TEST MIT DATA ANLEGEN 
REM 

DATA H,D.1 
IATA KH, K: 
DATA F)H.&. Fi 
DATA 7,6 
FEM #%% MAIN #6 





RETURN 


Bi 


Bild 14.14 Stücklistenauflösung 


!L=H 


‚De 
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14.7 Lösung linearer Gleichungssysteme 


Problem: Gleichungssysteme der Form 


a1ıXı +... + apmXm = bı 


AmıXı +... + ammXm " dm 
mit gegebenen a;, und b,, 1Si,k sm, können mit dem Gaußschen Eliminationsverfah- 
ren gelöst werden. Wir wollen diesen Algorithmus in ein Programm umsetzen und unter- 
stellen dabei das System als eindeutig lösbar. Wer sich für Fragen der Lösbarkeit interes- 
siert, mag dazu in Büchern über numerische Mathematik nachschauen. 
Gelegentlich sind mehrere Gleichungssysteme mit gleicher Koeffizientenmatrix (aj«) und 
verschiedenen rechten Seiten zu lösen wie z.B. 


2xı tx +%=2 xt tX= 4 
Xı -X2 +X3=3 und XıX%ıtX = 
X 72% -X3 = =-X, 72% ”X3=73 


Daher ist das Programm so aufgebaut, daß zu einer Matrix mehrere rechte Seiten eingege- 
ben werden dürfen. (Lösungen dieser Systeme sind 1,- 1, 1 bzw. 2, 1,- 1.) 

Um das Programm transparenter zu gestalten, haben wir es in Unterprogramme gegliedert. 
Das MAIN nimmt wiederum nur Steuerungsaufgaben wahr. 


Lösungsweg: Wegen der damit verbundenen kürzeren Formulierung des Verfahrens spei- 
chern wir die Koeffizienten und die rechten Seiten intern in einer einzigen (m, n)-Matrix A. 
Die erste rechte Seite steht in Spalte m + 1, die zweite in Spalte m + 2 usw., so daß für die 
beiden genannten Gleichungssysteme folgende Matrix einzugeben wäre: 


2171 2 4 
1-1 139% 
-1-2-1 9-3 

Das Gauß-Verfahren zielt darauf ab, ein vorgegebenes lineares Gleichungssystem so umzu- 
formulieren, daß in der Koeffizientenmatrix unterhalb der Hauptdiagonale nur Nullen ste- 
hen. Für die erste Spalte gelingt das, wenn jeweils ein geeignetes Vielfaches der ersten 
Gleichung (Basiszeile) zu jeder der folgenden Gleichungen addiert wird, was ja die Lö- 
sungsmenge nicht beeinflußt. Anschließend werden analog mit Hilfe der zweiten Glei- 
chung als Basiszeile die Nullen in der zweiten Spalte geschaffen usw. 


Aus numerischen Gründen erfolgt noch eine Spaltenpivotisierung, d.h. durch Vertauschung 
der Gleichungen wird vor dem ersten Durchgang das betragsgrößte Element der ersten Spal- 
te in die erste Zeile gebracht. Diese Zeile dient dann als erste Basiszeile. Vor dem zweiten 
Durchgang werden die restlichen Gleichungen so vertauscht, daß deren betragsgrößtes Ele- 
ment der zweiten Spalte nach Zeile 2 kommt usw. 


14.8 Normierte Zahlendarstellung 101 





Wenn die Transformation beendet ist, können die Unbekannten in einfacher Form berech- 
net werden. Aus der letzten Gleichung 


B-xı + xt... +0 m-1 + AmmXm " Am,m +1 
erhält man 


Xm ” Am,m + ı/am,m- 


Danach kann aus der vorletzten Gleichung xm — ı berechnet werden: 


Xm-1 = (Am-ı,m+1 — Am - 1,mXm)/Am -1,m-1- 


Analog werden die anderen Unbekannten erhalten, und bei mehreren rechten Seiten ist 
dieser Auflösungsteil entsprechend zu wiederholen. Eine weitergehende Erläuterung des 
Gauß-Algorithmus finden Sie in Büchern über numerische Mathematik. 


Das Hauptprogramm beschränkt sich im wesentlichen auf Unterprogrammaufrufe, wie 
Bild 14.15, Plan a, zeigt. Das Löschen ist wegen der Zyklusstruktur nötig, weil sonst beim 
erneuten Durchlauf versucht würde, einen existierenden Array erneut zu dimensionieren, 
was eine Fehlermeldung einbrächte. 


Das Unterprogramm für die Eingabe der (M, N)-Matrix A haben wir relativ komfortabel 
gestaltet. Bild 14.15, Plan b, zeigt den entsprechenden Ablaufplan. Mancher Leser wird 
dieses Unterprogramm auch an anderer Stelle verwenden können. Zu beachten ist, daß 
die elementweise Eingabe mit ®, ®, ® beendet wird, so daß sich zulässige Index werte auf 1 
bis M bzw. 1 bis N beschränken. 

Zur Einsparung von Rechenzeit werden im algorithmischen Teil des Programms nicht im- 
mer ganze Zeilen bearbeitet. Es ist nicht erforderlich, die Nullen auch tatsächlich herzu- 
stellen, die sich aufgrund des Verfahrens unterhalb der Hauptdiagonale ergäben. In Bild 
14.16 finden Sie die Ablaufpläne für das Gauß-Verfahren und die Pivotsuche, und Bild 
14.17 zeigt das gesamte Programm. 


14.8 Normierte Zahldarstellung 


Problem: Wenn der Zahlenwert einer Variablen unmittelbar auf dem Bildschirm ausgege- 
ben wird, kann die Darstellungsform nicht beeinflußt werden. Das stört z.B. bei der Aus- 
gabe von Kolonnen, die hier linksbündig geschrieben werden. Es stört auch, wenn unab- 
hängig von der Präzision der Eingangsgrößen die Ergebnisse technischer Berechnungen mit 
9 scheinbar signifikanten Ziffern erscheinen. Daher stellen wir hier ein Unterprogramm 
vor, mit dem Zahlen in der Form 


Ex.xxxxEt+txx 


ausgegeben werden können. Die Anzahl der Ziffern im gebrochenen Teil der Mantisse ist 
frei wählbar. 


Dieses Beispiel demonstriert außerdem den Gebrauch der verschiedenen Stringfunktionen. 
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a) b) 


Eingabe: 
M,N 


DIM A{M, N) 













Start: MATEIN 






Eingabe: 
Steuergröße 
für Eingabeart 





















MATEIN: 
Eingabe der 
Gleichungen 







Eingabe von 
Zeilenindex, 
Spaltenindex 
und Wert 







zeilenweise 
Eingabe der 
Matrix 





GAUSS: 
Berechnung der 

Lösungen mit dem 
Eliminationsver- 
fahren von Gauß 





















AUSGABE: 
Darstellung der 
Lösungen nach 
Abruf durch den 
Benutzer 










Eingabe: 
Steuergröße 
für Protokoll 


Protokoll 
ja 
Ausgabe 
der Matrix 


Eingabe: 
Steuergröße 
für Korrektur 



















Felder und Variable 


löschen 


Ausgabe: 
"Index 
falsch“ 














speichern 


















Bild 14.15 Gauß-MAIN und Matrixeingabe 
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Start: GAUSS 





Start: PIVOT 


HP=-1 


HK = HI,M 
i HF = JA(HK, HI)| 


HF = A(HI, HK) 
A(HI, HK) = A(HJ, HK) 
A(HJ, HK) = HF 


























Beste Basis- 
zeile wählen 


HJ = HI +1,M 








| HF =-A(HJ, HIJ/ACHI, HI) | 









HK=HJ+1,N 


A(HJ, HK) = A(HJ, HK) 
+ HF*A(HI, HK) 





— 
























A(M, HK) = A(M, HK)/A(M, M) 


HF = A(HI, HK) 
HJ =HI+1,M 


HF=HF- 
A(HI, HJ)*A(HJ, HK) 













A(HI, HK) = HF/A(HI, HI) 
Bild 14.16 
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Return 


Ablaufpläne zum Gaußverfahren 


1a PRIMT:FREIMT 





23 PEINT '# MEHRERE FECHTE SEITEN MOEGLICH 


30 PRINT:FREIMT 


dä IF Mil OR HÜ=M THEN 20 
Sa DIM ARXH.N> 
5 GOZUEPL IE 

ä GOSLEIE zes 






LEI 2 


Fr CR :GOTo3a 


A FEN ### UP EINGABE EIHER CM. M>-MATEIS RE 


REM EIN:M.H. AUS: NATEIS Au 


, FRIHT:FEIMT „ZEILEN v2» ODER ELEMENTE WE} 
3 INPUT"ZEICHEH £ ODER E";H$ 
za H$= LEFTEC H£.12 :PRIHT :IF H$="E" THENLIMG 


IF H&{>"Z" THENI11S 


FÜR HI=1 TOM "REM ZEILEHNBEISE 


FÜR HE=1 TO H 
FREIHT "AL" IRDEFSSHKE NO SIMFÜT ACHI.HEO 


34 GÜTOLLSR 
A INPUT"ZEILE. SPALTE.HERT "SHLCHKCHL 
= IF HI=8 THENLISO 


IF HIZI UF Hell THEN FEINT "INDEM FALSCH" 


„ IF HI>M OR HK>H THEH FREIHT "INDER FALSCH" 
= HCHI.HKS=HL :50TO11de 


sa FRINT:FRINT "FROTOEOLL 7? GIE TOBER N": 


= IHPUT H£ !HE=LEFTECHR. 1} 


IF H&="N" THENITTE 


IF H£<H"]”" THENI1SB 


Sa FRIMT 
58 FÜR HI=] TOM :REM FROTOKOLL 


S2 FREIHT "ZEILE":HI 


FOR Hk=1 TO H :PRINT ACHI.HK). IHENT 


5 FRINT :MEKT 


CBW HR Du o Ou u 


DE 


X 












FRIMT:FRIHT "KORREKTUR 7 GIE TODER N ": 


2 IHPUT H# HF=LEFTFÜHF. 12 


IF H£="H" THEH RETURN 
IF H$="]" THEH PRIHT :G0TO1148 
GOTOI11rE 


a REM ELF GRAUSS-WERFAHREN Er 





FEN EIN:M.H.MATRTE 
IF M£2 THENIEZZE 
FÜR HI=1 TO N-1 
GOSUELZER 

FÜR HI=HI+1 TOM 
HF=-ACHT.HIN“ el HI> 
FÜR HE=HI+1 TON 
ACHT. HEISRÜHT.HES+HFERCHL.HEN 
HE=T HE.HJ.HI 

REM IREIECKSGESTALT ERREICHT 
FOR HE=M+1 TO H 

REM. HESSACH. HE BCH. MO 

IF M£2 THENI24E 

FÜR HI=M-1 TO 1 STER -1 
HF=AÜHI, HK 

FÜR HI=HI+1 TOM 
HF=HF-RCHLCHTIT#RCHT HK 

HE=T 

RCHI.HKS=HFACHL. HI? 

HEXT 








> NEST 


REM LOESUMGEN STEHEN AB SPALTE M+i 
RETLFH 
REM ek UP SFRALTEHPIVOT SEK 


14 Demonstrationsbeispiele 


"# LINERFE GLEICHUNGSSYSTENE HACH GAUSS 


x" 


"ZEILEHZAHL M UNE SFALTEHZAHL MH EINGEBEN" :INFUT"MEH "SM.H 


EINGEBEN 7" 


'HEHT HEHI 


REM ELEMEHTHEISE 


:GOTOi Ida 
:GOTO114E 
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1261 REM EIN:HL.M.NATEI® 
EG Hei 
4 FOR HESHI TOM 
u& HF=RESURCHEHISN 
zus IF HFSHF THEH HF=HFOCHI=HE 
2 HEMT 
Y2 IF HJI=HI THEH FETURH 
REM ZEILEH YERTRUSCHEH 
5 FÜR HE=HI TO H 
HF=RCHI.HES> FÜHLT HEÖ=REHLTSHED I ACHT HEO=HF 
zog HEHT 
52 FETURN 
FEM ### UF AUSGABE DER LOESUNGEN 86% 
FEM EIN:P.H.MATRIS A 
FÜR HE=H+1 TOM 
12 PRIMT :IF Hk=M+l THENISEE 
FRIHT "HACH EINGABE DES ZEICHEHS 4 MIED DER HRECHSTE YERTOR ANGEZEIGT" 
5 INPUT’U "SHE 
= IF LEFTFIHR, 1 H"K" THENIZ14 
FRIHT "D°EHE-M:", LOESUNGSVERTOR" „FRINT 
FOR HI=i TOM :FEINT AcHI.HE> MENT 
HEART 
FETLUFH 











READY, 


Bild 14.17 Lösung linearer Gleichungssysteme nach Gauß 


Lösungsweg: Die darzustellende Zahl wird auf ZA erwartet und auf NZ die Anzahl der in 
der Mantisse hinter dem Punkt aufzuführenden Ziffern. Das Ergebnis wird auf ZA$ als 
String der Länge NZ + 7 geliefert. Bei der Aufbereitung wird von STR® (ZA) ausgegangen. 
Diese Funktion liefert einen String mit der gleichen Zeichenfolge, wie die Zahl bei direkter 
Ausgabe auf dem Bildschirm erschienen wäre. Die Mantisse einschließlich des Vorzeichens 
wird als String beibehalten (H$), während der Exponent in seine numerische Form über- 
führt wird (H3). Trat kein Exponent auf, erhält H3 den Wert f. 

Jetzt muß der Punkt in der Mantisse hinter die erste Ziffer geschoben werden. Damit das 
nicht den Zahlenwert verfälscht, erfolgt ein entsprechender Ausgleich im Exponenten H3. 
Dieser wird anschließend in einen String umgewandelt und in den Ergebnisstring eingear- 
beitet. Dabei sind eine Reihe von Sonderfällen zu beachten, wie Sie dem Ablaufplan (Bild 
14.18) und vor allem dem Programm {Bild 14.19) entnehmen können. 
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Tritt ein 
xponent auf. 








H8$ = Mantissenteil von ZA$ 
H3 = Wert des Exponenten 

















Lage des Punktes ermitteln. 
Ggf. Punkt anfügen. 


Punkt verschieben und 
Exponent H3 anpassen. 








Vorzeichen und signifikanten 
Teil der Mantisse nach ZA$. 


I ZAS$ auf geforderte Stellenzahl 
verlängern oder verkürzen. 


Exponent in String umwandeln, 
ggf. aufnullen und Vorzeichen 
setzen und hinter Mantisse und 
»E“ in ZAS anfügen. 


Bild 14.18 Grober Ablaufplan zur Ausgabeaufbereitung von Zahlen 
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READY. 


ia REM TEST-MAIN F. HÖRMZAHL 

za INPUT"ZA.NE":EA.NZ 

38 GOSUB2uaE 

44 PRINT ZA$ :G0TO1E 

REM ek UP NOFMIERTE SAHLDARSTELLUNG ES £ 3 

REM EIN: SA=ZAHL. NE=ANZAHL STELLEN HINTERM FUHKT. AUS: ZAF 
IF FA=f THEN ZA$=" 0." :Ha=a :G0TO2025 

E SRE=SSTRECZAN SHI=SLENTERSS IF H1XS THENZBIE 

3 IF MIDSCZAE, HI=3. 192 'E" THEN 2812 

H$=LEFTFÄEAS. Hi-4 SHS=YRLIRICHTESERS, 333 :GOTO2814 
HF=2A$ :H3= 

ZAS=LEFTEEHS. 1: REM YWORZEICHEN DER MANTISSE 
Hi=LENCHE:-1 

H£=FIGHT$CH$.Hi:> :REM MANTISSE CHHE WÜRZEICHEH 

a FÜR H2=1 TO Hi :IF MIDSCHE.HZ.1:="." THENZOSd 

NEXT 

BEZ HS=H$+"." :Hi=Hiti :Ha=Hi 

IF H2=2 THEH ZA$=ZAs+Hs 'GOTÜ2OEE 

IF H2>& THENZGS4 

A2S FÜR H2=2 To Hi :H3=H3-1 IF MIIECHER.HE.12>"G" THENSOSZ 
NEXT 

STR 

" PRS=ERS+MIDSCHF. HZ. 104". "+RIGHTECH$.HI-HE> 1! GOTO2E3E 
EAS=ZASHLEFTSCHE. 134". "HMIDECHS$. 2. H2-ZI+RIGHTECHE, HI-HE 
, H3=H3+H8-2 

; FÜR H2=1 TO NZ ER$FSZHFH"E" NEST 
ZAF=LEFTELERS.HZ+3> REM MANTISSE FERTIG 

* H$=STR$CH3> SHI=SLENIHFS-1 

IF LEFTECHE, 1>"-" THEN H$="+"+RIGHTFCHS.HID 

5 ER$=AF+"E"+LEFTECHF. 12 IF Hi=i THEN ZAs=2hsH"0" 
EAS=ERF+RIGHTFCHE.HI> :RETURH 





Bild 14.19 Normierte Zahldarstellung 
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15 Lösungen der Aufgaben 


2-1 Der Cursor zeigt die Stelle des Bildschirms, die bei der nächsten Betätigung einer 
Taste beschrieben wird. 


2-2 Die Bildschirmzeile, in der der Cursor blinkt, wird mit der RETURN-Taste zur Be- 
arbeitung an den Rechner übergeben. 


2-3 DerCursor wird auf das Y gesetzt und dann werden folgende Tasten betätigt: 


(nst],Lnsr], Inst] ‚[o],[e|,[el. 


2-4 Der Cursor wird auf das U gesetzt und dann werden folgende Tasten betätigt: 


2-5 Wenn sie mit der RETURN-Taste übergeben werden, speichert er sie als Programm- 
text. 


3-] Mit dem Fragezeichen wird das BASIC-Kennwort PRINT für die Ausgabe auf den 
Bildschirm abgerufen. Vor dem Fragezeichen dürfen Leerstellen und eine Zeilen- 
nummer stehen. 

3-2 18A=2 

20 B=3 
30 ?A*A + A*B + B*B 
RUN 
oder als 3. Zeile 
30 ?At2 + A*B+Bt2 


3-3 10 X=12.25 
20 Y= 35 
30 Z= 3,5 
40 ?X/(Y*Z) 
RUN 
3-4 10 X= 12.25 
MY= 35 
30 Z= 35 
40 A=(X-Y)t2/(X +Z) 
sd ?A 


RUN 
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3-5 


4-1 
42 


43. 


4-4 


5-1 
5-2 


5-3 
5.4 


6-1 
6-2 
6-3 


6-4 
7-1 





Eine Variable kann als ein Speicherplatz (für eine beliebige, veränderbare Zahl) an- 
gesehen werden. Der Variablenname entspricht der Adresse des Platzes, der Inhalt 
des Platzes bildet den Variablenwert. Variablennamen bestehen aus einem Buchsta- 
ben, zwei Buchstaben oder einem Buchstaben und einer Ziffer. 


Mit der STOP-Taste wird das laufende Programm unterbrochen. 


Vor der Programmeingabe mit NEW den Programmspeicher löschen. Nach der Pro- 
grammeingabe mit LIST den Inhalt des ganzen Programmspeichers anzeigen lassen. 


Das Programm wird mit RUN (, RUN 19 oder GOTO 1ß) gestartet. Damit ist das 
Löschen aller Variablen verbunden, so daß A in Zeile 29 mit Null multipliziert wird. 
(Bei GOTO 18 tritt der gleiche Effekt auf, falls X nach der Programmeingabe kein 
Wert zugewiesen wurde; denn auch bei der Eingabe von Programmzeilen wurden die 
Variablen gelöscht.) 


Wenn das Programm eingegeben ist, fahren Sie mit 
X=0.25 
GOTO 19 

oder mit 
A=1 
GOTO 36 

fort. 
20 ?TAB(19);B;TAB(29);A 
20 ?TAB(1P);B; 
39 ?TAB(29);A 
19 ?”’GEWICHT: “;G;”KG“ 
19 ?SPC(3); GEWICHT“ 
20 ?SPC(3);G;”KG“ 
"ABC, DEF“ 
18 DATA "ABC, DEF“ 


Der Rechner reagiert mit Programmabbruch und der Meldung READY. Sie setzen 
das Programm fort mit 


und können dann den geplanten Text eingeben. 
Nein 

18 INPUT Al, A2, A3 

20 AM= A] 

36 IFA2<AM THENAM=A2 


4B IFA3< AM THEN AM = A3 
50 ? AM 
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7-2 


7-3 


8-1 


8-2 
9-1 


9-2 
9-3 
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18 INPUTN 

20 INPUT AM 

39K=1 

4d IFK<NTHEN 79 

50 PRINT AM 

6d END 

@K=K+t1 

80 INPUT A 

98 IFA<AMTHEN AM=A 
100 GOTO 49 


Wir müssen noch festlegen, wie der Wert von n bereitgestellt wird. Da immer über 

alle Artikel summiert werden soll, entscheiden wir uns für die Aufnahme von n in 

die DATA-Anweisungen. Diese richten wir auf ein Beispiel mit 5 Artikeln und den 
Preisen 17,50 DM, 21,00 DM, 123,80 DM, 99,80 DM und 37,90 DM aus. 


1 DATA5 

2 DATA 17.5, 21, 123.8, 99.8, 37.9 
185Z=0:5N=$:L=1 
20 READN 

30 READ P: INPUT A 
4d SZ=SZ+A*P:SN=SN+A 
S® L=L+1:IFL<=NTHEN 39 
69 PRINT SZ/SN 


Die Kassette zurückspulen und das VERIFY-Kommando geben. Wenn die PLAY- 
Taste eingelegt ist, erscheint die Meldung 


FOUND Name. 
AKT, ART, AST, AK, AR, AS, A. 


Die erste Angabe (1) ist die Kanalnummer, die zweite (8) ist die Gerätekennzahl der 
floppy-disk und die dritte (15), die sog. Sekundäradresse, kennzeichnet den Kanal 
als Übertragungsweg für Kommandos. 


Der Diskettenname ist für den Rechner ohne Bedeutung. 


Wenn die Diskette in Laufwerk 1 liegt, wird nach LOAD ”$1“ und LIST deren In- 
haltsverzeichnis angezeigt. Im Programmspeicher steht das Inhaltsverzeichnis. Wenn 
Sie jetzt ein Programm entwickeln wollen, müssen Sie sicherstellen, daß keine Zeile 
des Inhaltsverzeichnisses erhalten bleibt. Am besten löschen Sie den Speicher zuerst 
mit NEW und bauen dann das neue Programm auf. 


Über den Kommandokanal 1 wird die Aufbereitung der in Laufwerk ® befindlichen 
Diskette veranlaßt. Alte Dateien werden gelöscht. Die Diskette erhält den Namen 3 
und die Identifikation 4. 
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9.5 Die geforderte Datei wird mit folgendem Programm erstellt: 


10-1 


10-2 


10-3 


11-2 


10 OPEN 2, 8, 2, ”B:TEST, SEQ, WRITE“ 

20 PRINT#2, 1;CHR$(13) 25” , “,CHRS(13) 45”, “5; 
” *.&CHRY(13) 

3ÖCLOSE 2 


Das Lesen der ersten 3 Sätze gelingt mit 


10 OPEN 3, 8, 3 "9: TEST, SEQ, READ“ 
20 INPUT#3, X: PRINT X 

30 INPUT#3,X,Y:PRINTX,Y 

49 INPUT#3,X,Y,Z:PRINTX,Y,Z 


Wenn Spezialtasten wie z.B. die Cursorsteuertasten Bestandteil eines Ausgabestrings 
sind, werden sie bei der Ausgabe auf den Bildschirm interpretiert, bei der Ausgabe 
auf den Drucker hingegen als Zeichen dargestellt. Umgekehrt gibt es auch Zeichen, 
die vom Drucker als Steuerzeichen interpretiert werden (s. Druckerhandbuch), wäh- 
rend sie auf dem Bildschirm als Zeichen erscheinen. 


1 OPEN 4, 4:OPEN, 1,4, 1:OPEN 2,4, 2 
20 PRINT #4, SPC(4);”X;SPC(19);”’Xt2“ 
30 PRINT#2,”S999.999 5999.99“ 
46 INPUTN:K=1 

56 INPUTX 

60 PRINT#1,X,Xt2 
7K=K+1:IFK<=NTHEN 59 

80 CLOSE 1 

OPEN 5, 4 


CMDS5 
LIST 


und nach dem Drucken 


PRINT#5 


19 INPUT ”N“;N 

20 IFN<OTHEN 19 
36 F=1 

468 FORK=1TON 
söF=F*K 

68 NEXT 

70 PRINT F 


18 INPUT ’’M,N‘S;M,N 

20 N = INT(ABS(N)) :REM N WIRD GANZ UND NICHT NEGATIV 
30 B=1:L=1 

Ad IFN=GTHEN 96 


112 


15 Lösungen der Aufgaben 


56 FORK=1TON 
60 B= B*M/L 
7dL=L+1:M=M-1 
80 NEXT 

96 PRINT B 


11-3 Für KS #9 ist die Schleife 


11-4 


12-1 


2ß FORK=KATOKESTEPKS 


96 NEXT 


gleichwertig mit 


18 K=KA 
20 REM 


98 K=K+KS:IF (KE-K)*SGN (KS) >= THEN 29 


10 INPUT "NSN:IFN<2THEN 1® 
20 DIM X (N), Y (N) :INPUT X (1), Y(1) 
30 FORK=2TON 

40 INPUT X, Y 

5ß FORL=K-1TO1STEP-1 

60 IFX(L)<=X THEN 1PP 

70 X(L+1)=X(L):Y(L+1)=Y({L) 
8d NEXT 

HL=H 

108 X(L+1)=X:Y{L+1)=Y 

110 NEXTK 

120 REM LESEN UND SORTIEREN FERTIG 
130 FORK=1TON 

140 PRINT X (K), Y(K) 

150 NEXT 


10 INPUT”N;N:IFN <2THEN 10 

29 DIM X({N) 

30 FOR K=1TO N:INPUT”XX(K):NEXT 

40 S = 0:GOSUB 8ß:M = S/N:PRINT”MITTELWERT =";M 
5ß FORK=1TON:X(K) = (X (K) - M)t2 :NEXT 

64 S=$:GOSUB 8ß :V =S/(N - 1) 

70 PRINT ”VARIANZ =";V:END 

80 FORK=1TON:S=S+X(K) :NEXT 

99 RETURN 
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12-2 


13-1 


13-2 


13-3 





10 DEFFNAS(SX) = ATN (SX/SQR (1-5X?2)) 
20 DEFFNAC(CX) = ATN(SOR (1-CX?2)/CX) 


118 INPUT "M“;M:M$ = STR$(M):L = LEN(M$) 

120 IFI<S THEN 119 

130 IF MID$(M$, L-3, 1) <> "E“ THEN 189 

149 K$ = 999“ 

150 IF MIDS(M$, 3,1) <>”. “ THEN Kd=".“+K$ 
160 H8=LEFTS(MS, L4) + KB 

179 M$= LEFTS(H$, 6) + RIGHTS(MS, 4) 

180 PRINTMS :GOTO11P 


210 INPUT ”STRING“;Q$:L = LEN(Q$) 
228 IFL<1 THEN 219 

230 PRINT LEFT$(Q$, 1); 

248 IFL=1 THEN 329 

250 FORM=2TOL 

260 E$ = MID$(Q$, M, 1) 

270 FORN=1TOM-I 

280 IF E$= MID$(Q$, N, 1) THEN 319 
290 NEXTN 

308 PRINT ES; 

310 NEXTM 

320 PRINT :GOTO 219 


418 INPUT "STRING“; Q$:L = LEN(Q$) 
420 IFL<I1 THEN 419 
430 K=1 

440 IFL= 1 THEN 560 
450 FORM=2TOL 

460 E$=MID$(Q$,M, 1) 
470 FORN=1TOK 

480 H$ = MID$(Q$, N, 1) 
499 IF Eß= H$ THEN 559 
500 IFES<HSTHEN 530 
510 NEXTN 

20 N=K+I 
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539 Q8 = LEFT$(Q$, N-1) + E8 + MID$(Q$, N, M-N) + RIGHTS (Q4, L-M) 


549 K=-K+1 
550 NEXTM 
560 PRINT LEFT$(Q$, K) :GOTO 419 
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Ausgabe 9, 27, 52, 57 
—, formatiert 58 

— zeile 28 
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Programmieren von Mikrocomputern 





Diese Bände geben den Benutzern von Mikrocomputern über die Betriebsanleitung hinaus 
zusätzliche Anwendungshilfen. Der Leser findet wertvolle Informationen und Hinweise mit 
Beispielen zur optimalen Ausnutzung seines Gerätes, besonders im Hinblick auf die Entwick- 
lung eigener Programme. 
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Wolfgang Schneider 


BASIC für Fortgeschrittene 


Textverarbeitung, Arbeiten mit logischen Größen, Computersimulation, Arbeiten mit 
Zufaliszahlen, Unterprogrammtechnik. Mit zahlr. Beispielen und 10 vollst. Programmen. 
1982. 1X, 189S. DINC 5. Kartoniert 

Inhalt: BASIC-Sprachelemente — Textverarbeitung — Verarbeitung von logischen (Boole- 
schen} Größen in BASIC — Arbeiten mit Zufallszahlen in BASIC — Unterprogrammtechnik 
in BASIC — Vollständig programmierte Beispiele — Lösungen der Übungsaufgaben. 

Dieses Buch ist ein Aufbauband zu dem Grundlagenband „Einführung in BASIC”. Er setzt 


Grundkenntnisse in der Programmiersprache BASIC voraus und hilft, diese in speziellen 
Bereichen zu erweitern. 








Gerhard Schnell und Konrad Hoyer 


Mikrocomputerfibel 


Vom 8-bit-Chip zum Grundsystem. Unter Mitarbeit von Burkhard Kours. 1981. X, 231 S, 
DINCB. Kart. 
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Band 2: Lehr- und Übungsbuch für die Rechnerserien cbm 2001 
und cbm 3001 


von Gerhard Oetzmann 


Die Rechner der Serien com 2001 und cbm 3001 können in cbm-BASIC 
programmiert werden, einer BASIC-Variante mit verschiedenen her- 
stellerspezifischen Besonderheiten. Dieser zweite Band der Reihe 
„Programmieren von Mikrocomputern‘ enthält eine umfassende Ein- 
führung in cbm-BASIC, ohne daß Programmierkenntnisse vorausgesetzt 
werden. Neben der Vermittlung der Sprache wird an verschiedenen 
Beispielen der Weg von der ersten Lösungsidee bis zum fertigen Programm 
demonstriert. 


Nach mehrjähriger Tätigkeit in der Entwicklung von Anwender-Software 
lehrt Prof. Gerhard Oetzmann an der Fachhochschule Hamburg die 
Gebiete Mathematik und Datenverarbeitung. 
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